CY8ER Vectorizing Coda Generator Interface Specification 



1-1 



85/01/03 



1.0 REVISION RECORD 



1*0 ££miOM-£££Mn 



h. 01/01/85 - Preliminary Draft. 



CYBER Vectorizing Code Generator Interface Specification 

2,0 PREFACE 



2-1 

85/0lf03 



2.0 £££EM£ 



This document provides the external Interface Specification for the 
CYBER Vectorizing Code Generator fCVCG) • 
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3*0 INTRODUCTION 



3.0 isi&flauciifls 



The CYBER Vectorizing Code Generator <CVCS) supports the development 
of compilers for the following source languages! ADA* BASIC* C» 
COBOL* CY8XI* FORTRAN* and PASCAL; producing object code for 
execution on Cany model ofl the foi lowing target machines! CYBER 
180* CYBER 205* and CYBER 250* A source program in one of these 
languages is first processed by the appropriate compiler's "Front 
End"* which is language dependent and machine independent* The 
Front End performs scanning* parsing* and semantic analysis* The 
internal representation of the orogram used in the Front End is then 
transformed into the internal representation used In the Code 
Generator by a "Bridge** which is both language dependent and 
machine dependent* The Bridge receives support from a set of 
procedures provided by the Code Generator* which are collectively 
termed the CVCG "Interface"* Finally the Code Generator transforms 
the program into object code for a specific target machine* CVCG* 
which is language independent and machine dependent* performs 
automatic vector Izat ion* optimization* nn^i memory and register 
allocation* Hereafter* the term "Host* will be used to refer to the 
Front End and Bridge as a single unit* while the term "Back Fnd" 
will be used to refer to the Bridge and Code Generator as a single 
unit* 
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3.0 INTRODUCTION 

3.1 ARCHITECTURAL DIAGRAM 



3.1 !££HII£CIii£A!J2IA£SAJ! 



The typical architecture of a compiler which uses the CYBER 
Vectorizing Code Generator can he illustrated bs follows. 
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4*0 INTERFACE PROCEDURES 



4.0 IMI£££M£-£BQ££rvy E £2 



The CVCG Code Generator provides a set of Interface procedures which 
are callable from the Host (normally from the Bridge)* They must be 
used by the Host to pass all Information needed by CVCG for the 
generation of correct code with the d%$\r%6 level of optimization 
and vector izati on* Procedures are also present which allow the Host 
to query CVCG about the object code It generates* 

4 . 1 2!UII1IIQ!L AMD-IEfiaiMAIIfltLMfJSEfiU&ES 

A single Invocation of the code generator consists of an ordered 

series of calls to the code generator Interface procedures* In the 
n?ost general case this will consist of the following steos? 

1* A call to cvp$ l_begi n_?nodu le; 

2» Huttlole calls to various definition C cvpS l_def ine_* •* ) and 

emission (cvoSI.e^l t_*» *1 procedures; 
3* A call to cvpS i_begi n_generat Ion; 
4* Hultlnle calls to various query (cvp$ i_guer y_* •• ) and 

transmission ( cvo$i_trans»!!it_** • ) procedures? 
5* A call to cvp$ i_end. generation? 

6* Multiple calls to various query ( cvp$ l_query_* •* ! procedures; 
?• A call to cvp$i_end_moduf e* 

Steps 2 through 6 are all optional* however If steo 3 Is performed 
then steo 5 i*?ust also foe performed* 

Multiple invocations of the code generator are allowed* Each 
invocation is independent of all other invocetions; that 1st the 
code generator is completely (reinitialized each tl&?e steo 1 Is 
performed* 



4.1.1 CVP$I_BEGIN_G€NE*ATION 

?? PUSH (LISTEXT t* ON) ?? 

♦copyc cvt$l_generat lon^status 
9 ? p rj p ? j 

?? PUSH (LIST i« ON) ?? 
i cvpSl.begl n_gener at Ion > 
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4,0 INTERFACE PROCEDURES 
4.1.1 CVP$I_BEGIN_GENERATIQN 



?? POP ?? 

PROCEDURE tXREFl svp$f_begin_<jenerat1 on I 

generate_errors_binary * boolean? 
VAR gener at ion_statuss cvt$i „§ener at lon.status) ? 

PURPOSE: 

This procedure informs the cods generator that the Host has 
completed passing to the code generator al i information needed in 
order to generate the object code. At this point the code generator 
*MI generate the requested object code and Place it on the binary 
file. 

ORDERING: 

Ail definition Ccvp$ i.def ine_... ) and emission < cvp$ i_eml t_. . * ) 
procedure calls ffust precede the call to cyp$i_beg i n_gener at ion. 
AM query i cvpS i.quer y_*..1 and transmission (cvo$i_tr ansni t_*«« ) 
procedure calls must follow the call to cyp$ i_begi n_generat ion. 
There must be a subsequent call to cyoS l_and_gener at ion prior to the 
call to cvp$i_end_modul e. 



4.1.2 CVP$I_PEGIN_*ODULE 



?? PUSH U.ISTEXT :« ON) ?? 

♦copyc cyt$ i_code_gener ator_attr Ibutes 

?? POP ?? 

?? PUSH (LIST :* ON) ?? 
K. cvp$!_beg I n.snodul e > 
?? POP ?? 

PROCEDURE CXREF1 c vp$ i_beg i n.wodul e C 

code.gener ttor.attrl but as: cvt$i_code_gener ator_attr I butes) ; 

PURPOSE: 

This procedure initiates the code generator. 

ORDERING: 

This procedure must be called prior to any other procedure in the 
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4*0 INTERFACE PROCEDURES 
4.1.2 CVP$I_8EGIH_H0DULE 

Interface* It may not be called again until after cvp$i_end_modu!e 
h%s been called. 



4. 1*3 CVP$I„END_G£NERATION 

?? PUSH (LISTEXT s* ON) ?? 

*copyc cvt$l_code_gener ator_resu Its 

?? POP ?? 

?? PUSH (LIST s* ON) ?? 
f cvp$i_end_gener at i on > 
?? POP ?? 

PROCEDURE CXPEF1 cvpS i_end_generat i on i 

VAR eode_gener ator_r esults t evt$i_code_generator_resul ts ) ; 

PUP POSE: 

This procedure informs the code generator that the Host has 
completed passing to the code generator ail information that Is to 
be placed on the binary file* At this point the code generator villi 
finish generation of the binary file* 

ORDERING* 

AH transmission ( cvp$l_transm it_* • • ) procedure calls must precede 
the call to cvpi i_end_aenerat i on. Only ouery (cvp$ l_query_*** ) 
procedure calls* and the call to cvp$i_and_modui e# may follow the 
call to cvp$l_end_gener at ion* There must be one call to 
cyo$i_end_gener ation for each call to c*P$ i_be<jin_generatl on* 

4*1.4 CVP$I_END_«ODULE 

?? PUSH CLISTEXT 5» ON) ?? 

?? POP ?? 

?? PUSH (LIST 5* OH) ?? 
C cvp$i_end_moduJe > 
?? POP ?? 

PROCEDURE IXREFl cvpS i.end.module; 
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4*0 INTERFACE PROCEDURES 
4,1*4 CVP*I_END_HODUL€ 

PURPOSE J 

This procedure terminates the code generator. 

ORDERING! 

No other procedure in the Interface way he called after 
cvpM - .end < _modiHe« unless and until cvoSi.begin^modu I e is called to 
reinitialize the code generator. There must foe one call to 
evp$l - .end_^odul a for each call to cvp$I_hegin_moduf e* If 
cvp$i_beg in_gener at ion has been called* then cyp$ i_end_n?oduf e may 
not be called until after the corresponding cvp$ l_end_gener at ion is 
called* Otherwise* cvpf i_end_fnodul e may he called at any time after 
cypS i_beo in.isodule* 
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4,0 INTERFACE PROCEDURES 

4,2 CONSTANT DEFINITION PROCEDURES 

*» Z £3mMI-£E£IMIIQ!S-£EO££!2U££S 

Each constant referenced in one of the code emission procedure cells 
must have been previously defined by one of the constant definition 
procedure cai Is, 



4,2*1 CVP $1. DEE INE. ARR A Y.CONST ANT 



?? PUSH ftlSTEXT s« ON) ?? 

*copyc cvt$l.array.constant 
*copyc cvt$i_code.gener ator.i d 

?? POP ?? 

?? PUSH (LIST :* ON) ?* 

f. cvp$i.def ine. arr ay. constant > 

?? POP ?? 

PROCEDURE CXREF3 cvo$ i_def i ne.arr ay. const ant C 

arr ay. const ants cvt$i.arr ay. constant? 
VAR constant.id? cv t$ i.code.gener ator. id ) ; 

PURPOSE: 

This procedure defines nn^ describes a one-disiens lonal array 
constant. 



4.2,2 CVPSI.DEFINE.POINTER.CONSTANT 

?? PUSH CLISTEXT :« OH) ?? 

*copyc cvtSi. code. generator.! d 

?? POP ?? 

?? PUSH (IIST :« ON) ?? 

C cvpfi.defi ne. pointer. constant > 

?? POP ?? 

PROCEDURE CXRFF1 cvpS i.def i ne.po inter. constant f 

VAR constant.! dt cvtSi.code.gener at or. i d) ; 
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4.0 INTERFACE &ROCEOUPES 

4.2.2 CV»$I_0*:FINE.I>aiNT5R.Cf3NST4NT 

PURPOSE* 

This procedure defines % pointer constant. The Code Generator ilil 
provide a bit pattern for the constant that corresponds to the 
standard NIL pointer ?or the t arget_syste*?u 

4.2.3 CVP*I_!)EFINE_SCALAR_CONST*NT 

?? PUSH CUSTEXT ?« ON) ?? 

♦ copyc cvt$i_code_gener ator_l d 
*copyc cvt$i_scalar. constant 

?? POP ?? 

?? PUSH (LIST s* ON) ?? 

C cvp$i_def i ne.scal ar_const§nt > 

?? POP ?? 

PROCEDURE CXREF3 cvp$ i_def i ne_scai ar.constant { 

scat ar^constant s cvtSi.scal ar ..const ant; 
VAR constant.! d? cv tSi^code.gener ator_i d)l 

PURPOSE! 

This procedure defines and describes a scalar constant. 
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4,0 INTERFACE PROCEDURES 

4.3 TYPE DFPIMTTION PROCEDURES 

4.3 II2£_fi£EiaiIIQa_£SQ££nUE£S 

Each type referenced in one of the type definition or object 
definition procedure calls must have been previously defined by one 
of the type definition procedure calls. A collection of primitive 
types ere provided by the Code Generator for use In describing the 

newly defined types? 

?? push uistfxt «■ nm ?? 

?? POP ?? 

?? PUSH {LIST i« OH) ?? 

{ cvt$i_code_gener ator_type > 

?? POP ?? 

TYPE 

cvt$i_code_gener ator_type ■ C 

cvc$ I. type less* 

{ This is used when the type of an object or operation is unknown 
Cor not appl i cab! e. 

cvc$l_type_ integer _32» 

C This primitive type Is used for operations upon objects which are 
{represented at the hardware implementation level with 32-bit signed 
{integers. Note that CVCG requires the objects themselves to be 
{defined in terms of another type* usually In terms of 64-hlt signed 
{integers having value bounds constraints. 

cvcf i_type_real _32t 

{ Objects of this type must have a length of 32 bits. 
{ This orimitive type Is used for objects which are represented at 
{the hardware implementation level with 32-bit floating point values, 
{and for operations upon such objects. E.g. FORTRAN half precision. 

cvc$i_type_integer_64> 

{ Objects of this type may have a fixed length between 1 and 64 bits. 

{ This primitive type is used for objects which nre represented at 

Cthe hardware implementation level with 64-bit signed integers? and 

{for operations upon such objects. Note that this primitive type is 
{also used in the definition of integer objects having value bounds 

{constraints. E.g. CYBIl integer* ordinal* subrange. 

cvc$i_tyoe_real_64t 

{ Objects of this type must have a length of 64 bits. 

{ This primitive type Is used for objects which are represented at 
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4,0 INTERFACE PROCEDURES 

4,3 TYPE DEFINITION PROCEDURES 

{the hardware implementation level with 64-bit floating point va es? 
{and for operations upon such objects* E*g* FORTRAN real* 

cvcS i_type_compi ex_64» 

T Objects of this type must h&v% a length of 64 bits* 
{ This primitive tyoe is used for objects which are represented at 
{the hardware implementation level with a pair of 32-bit floating 
{point values? and for operations upon such objects* 

cvc$l_type_real_128* 

{ Objects of this type must have a length of 128 bits* 
{ This primitive type is used for objects which are represented at 
{the hardware implementation level with 128-bit floating oolnt values; 
Kznd for operations upon such objects* F*g* FORTRAN double precision, 

cvc$ i_type_compl ex.128* 

{ Objects of this type must have a length of 128 bits. 
{ This primitive type is used *or objects which are represented at 
{the hardware implementation level with a pair of 64-bit floating point 
{values? and for operations upon such objects* £*g* FORTRAN complex. 

cvc$i_type_eompl ex_256* 

{ Objects of this type must have a length of 256 bits* 
{ This primitive type is used for objects which are represented at 
{the hardware implementation level with a pair of 128-bit floating 
{point values* and for operations upon such objects* 

cveSi^type^bool ean_sign* 

{ Objects of this type may have a fixed length between 1 and 64 bits* 
{ This primitive type is used for truth-valued objects which are 
{represented at the hardware implementation level with a signed integer 
{or integer subrange; and for ooerations upon such objects* All 
{non-negative values are treated as FALSE* and ail negative values are 
{treated as TRUE* E*g* CYBER 180 FORTRAN logical* 

cvc$i_type_boo! ean_0_l» 

{ Objects of this type may have a fixed length between 1 and 64 bits. 
{ This primitive type is used for truth-valued objects which are 
{represented at the hardware Implementation level with a signed integer 
{or integer subrange? and for operations upon such objects* The value 
{of zero Is treated as FALSE* the value of one Is treated as TRUE* and 
{all other values have an undefined truth value* E*g* CY8IL boolean? 
{CYBER 200 FORTRAN logical. 

cvc$ i_type_bl t_str I ng* 

{ Objects of this type may have any fixed bit length. 

{ This primitive type Is used for objects which are represented 

{at the hardware liaolementat Ion level with a sequence of bits? and 
{for operations upon such objects* E*g» CY8IL set* 
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4*0 INTERFACE PROCEDURES 

4.3 TYPE DEFINITION PROCEDURES 



cvc$i_type_d is joint* 

C Objects of this type may have any fixed bit length* 
C This primitive type is used for objects which are represented 
Cat the hardware implementation level with a sequence of bitsj In 
{addition the object must have no optimization interference with 
Cany other object of any type. E.g.* many kinds of compiler-generated 
Cob JectSa 

cvc$ i.type.un I on » 

C Objects of this type may have any fixed bit length, 
C This primitive type is used for objects which are represented 
Cat the hardware implementation level with a sequence of bits? In 
{addition the object has b^ ootiml^ation interference with objects 
{of more than one type. E.g. FORTRAN boolean, CYBIL cell* sequence* 

cyc$i_type_bd0„.O_pdu* 

{ Objects of this type may have any fixed character length* 

{ This primitive type is used for objects which are represented 

Cat the hardware implementation level iike CYBER 180 8DP type 0* 

cvc$i_tyoe_bdP_l_Pdulsd« 

{ Objects of this type may have any fixed character length* 

{ This primitive type Is used for objects which are represented 

Cat the hardware implementation level like CY8ER 180 BDP type 1* 

cvc$i_type_bdp_2_pds# 

C Objects of this type may have any fixed character length* 

C This primitive type Is used for objects which wtre represented 

Cat the hardware implementation level like CYBER 180 8DP type 2* 

cvc$l_type_bdo_3_pds lsd# 

C Objects of this type may have any fixed character length. 

{ This primitive type is used for objects which are represented 

{at the hardware implementation level like CYBER 180 8DP type 3* 

cvc$l_type_bdp_4~udu« 

C Objects of this type may have any fixed character length* 

{ This primitive type is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 8DP type 4* 

cvc$i_type„bdp_5_udtschf 

{ Objects of this type may have any fixed character length* 

{ This primitive type is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 80P type 5. 

cvc$i..tvpe_hdp_6_udtss» 

{ Objects of this type may have any fixed character length* 

{ This primitive type Is used for objects which are represented 
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4,0 INTERFACE PROCEDURES 

4,3 TYPE DEFINITION PROCEDURE? 



Cat the hardware imp! ementat Ion level like CYBER 180 8DP tyoe 6, 

cvc$r_type_bdp_7_udlsch> 

C Objects of this type way have any fixed character length, 

C This primitive tyoe is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 BOP type ?, 

cvc$i_type_fodp_8_ud1ss# 

C Objects of this type may have any fixed character length, 

C This primitive type Is used for objects which are represented 

Cat the hardware implementation level like CYBER 180 BOP type 8, 

cvc$i_type_bdo_9_a» 

C Objects of this type may have any fixed character length, 

C This primitive type is used for objects which urs represented 

Cat the hardware implementation level like CYBER 180 8DP type 9, 
CE,g» FORTRAN- character J CYBTL string, 

cvc$i_typ e_b dp_l 0_h u $ 

C Objects of this type may have any fixed character length, 

C This primitive type is used for objects which are represented 

Cat the hardware impl ementatlon level like CYBER 180 BOP type 10, 



cvcSi_type_bdp_ll_bs# 

C Objects of this type may have any fixed character 
C This primitive type Is used for objects which are 
Cat the hardware I mplementat I on level like CYBER 180 



i ength, 
represented 
8DP type 11, 



cvc$i_type_bdp_12_tpdSf 

C Objects of this type may have any fixed character length, 

C This primitive type Is used for objects which are represented 

Cat the hardware implementation level like CYBER 180 80P tyoe 12, 

evc$l_type_bdp_13_tpdslsd» 

C Objects of this type may have any fixed character length, 

C This primitive type is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 BOP type 13, 

cvc$ i_type„_bdo_14_thUf 

C Objects of this type may have any fixed character length, 

C This primitive tyoe is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 30P type 14, 

cvc$l_type_bdp_l5_tbs# 

C Objects of this type may have any fixed character length, 

C This primitive tyoe Is used for objects which are represented 

Cat the hardware Implementation level like CYBER 180 SOP type 15, 

cvc$i - .type - oo inter* 
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4.0 INTERFACE PROCEDURES 

4,3 TYPE DEFINITION PROCEDURES 



f This primitive type 1s used for objects which are represented 
Cat the hardware implementation level with 48-bit pointers* 
CE«<3* CY8IL fixed pointers* 

cvcli. type. array* 

C This primitive type is used for objects which are represented 
Cat the hardware implementation level as an array of elements* 

cveSi.type. record* 

C This primitive type Is used for objects which are represented 

Cat the hardware implementation level ns a record structure* 

cvcSi.type.procedur e> 

C This primitive tyoe Is used for procedures when they are treated 
fas objects of pointers* 

cv c$l. type. Internal 

C This primitive type is used only internally to the Code Generator* 

)? 

CONST 

cvc$ i. type. char. str ing * cvcl i.tyoe.bdp.9.a> 
cvc$i.tyoe. i nteger ■ cvcSl.t yoe.i nteger.64? 
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4.0 INTERFACE PROCEDURES 
4.3.1 CVP$I_DEFIN£_ARRAY_TYP£ 



4*3.1 CVP$I_OEFIN£_ARRAY_TYPE 



?? PUSH (LISTEXT :« ON? ?? 

♦copyc cvt$i_ar ray^attr i butes 
♦copyc cv t$i_ar ray_dascr iptor 
♦copyc cvt$l_code_oener ator_i d 

?? POP ?? 

?? PUSH (LIST :» ONI ?? 

C cvn$i_def ine_arr ay_type > 
?? POP ?? 

PROCEDURE CXREF1 cvpS i_def i ne.arr ay.typa C 

array_attributess cvt*i_array_attributes: 
ar r ay_descr iptor: A cy t$l_ar r ay_descr Iptor ? 
VAR tyoe_id: eyt $i_code_gensr ator.l d? ; 

PURPOSE: 

This procedure defines and describes a new array type* 

ORDERING: 

The array element^type must be previously defined by a call to one 
of the following type definition procedures? 
cvp$l_de? Ina_ar r ay_tyoe> cvp$i_def i ne_i nteger_ sub type* 
cvp$i_def ine_pointer_type# cvoSi.def I ne.or oc_po! nter_tyoet 
cvp$i_def ine_r anoe_type» cvo$i_def I ne_record_type» or 
cvp$i_def ine_.sc a I ar.tyoe. 



4.3.2 CVP$T_DEFINE_INTEGER_$U8TYPE 



?? PUSH UISTEXT s« ON? ?? 

*copyc cv t$i_cnde_generator_i d 

?? POP ?? 

?? PUSH (LIST :« ONI ?? 

C cvp$i_def i ne_ integer^subtyoe > 

?? POP ?? 

PROCEDURE CXREF1 cvpS i_def i ne_i nteger_subtype < 
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4.0 INTERFACE PROCEDURES 

4.3.2 CVP$I_DEFINE_INTEGER_SUBTYPE 



P a r en t_ t yp e * cv t $ i _co d e_ g en era t o r _ I d » 
lower.bound* Integer | 
upper.bound* Integer; 
VAR subtype. Id* cv? $i_code_gener etor.i d) ? 

PURPOSE J 

This procedure defines and describes a new subtype of a previously 
defined parent.type. Associated with this subtype are bounds 
constraints* It is the responsibility of the Host to ensure that 
objects of this subtype do not have values outside the specified 
bounds. The Code Generator will not perform or introduce bounds 
checking based on the specified bounds constraints. 

ORDERING* 

The parent_type must be previously defined by a call to 
cvp$l_def ine_r ange.type or by a call to cvp$ i_def ine.scaf ar.type. 
In the former case* the bounds of the subtyoe must not lie outside 
the bounds of the range type. In the latter case» the scelar.type 
n?ust be cvc$ i_type_i nteger • 

4.3.3 CVPSI_0€FINE_PaiNTERJ3BJ€CT 

?? PUSH (LISTEXT :» ON) ?? 

*copyc cvt$i_code_gener ator.l d 

?? »0P ?? 

?? PUSH (IIST :« OM) ?? 

€ cvpSi.def ine.pointer.object > 

?? POP ?? 

PROCEDURE CXREF1 cvp* I _def I ne.pol nfrer^ob ject i 

poioter.id* cvt$ i_code_generator_i d; 
object.tyoe: cv t$l_code_generator_i d) ? 

PURPOSE: 

This procedure describes a pointer type in terms of the object to 
which it can point. 

ORDERING* 
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4,0 INTERFACE PROCEDURES 

4,3,3 CVP$I_D£FIN£_P0INTER_084ECT 



The described pointer type isust be previously defined by a ceil to 

cvp$i_def ine_po i nter_tyoe. There must be one calf to 

cvp$i_def i ne_po inter_ob ject for each calf to 

cvp$l_def i ne.po inter.type; thus no two calls to 

cvo$i_def ine^po inter^oh ject may specify the same pointer_ld» The 

object. type must be previously defined by a call to one of the 

following type definition procedures? cvp$ i_def ine_arr ay.type* 

cvp$l_def lne_lnteger_subtypet cvp$ J_def ine.poi nte retype* 

cvp$i_def i ne_pr oc_po i nter.type* cvo$i_def i ne_r aoge_type* 

cvp$ i_def ine_record_type» or cvo$i_def i ne.scat ar_type, 

4.3.4 CVP$I_DEFXNE_POIN?ER_TYPE 

?? PUSH CtlSTEXT :« ON) ?? 
*copyc cvt$i_code_generator_id 

99 Pfjp 79 

?? PUSH (LIST 3* ONI ?? 

C cvp$i_def i ne^polnter.type > 

? ? POP ? ? 

PROCEDURE CXREF1 cvp$ i_def i ne_poi nter_type C 

VAR typa_id: cvt$i_code_gener ator_i d) ; 

PURPOSE: 

This procedure defines a new pointer type, 

ORDERING: 

The object which can be pointed to by a pointer of this type must be 
described in a subsequent call to cvp$l_def ine_polnter_ob ject. The 
pointer object Must be described before any references to the new 
pointer type occur in an object definition procedure, 

4.3.5 CVPSI_OEFINE_PPOC_POINTER_TYPE 

?? PUSH (LISTEXT :» ON) ?? 
♦copyc cvt$i_code_gener ator_i d 
?? POP ?? 



CYBER Vectorizing Code Generator Interface Specification 



4-15 
85/01/03 



4,0 INTERFACE PROCEDURES 

4,3.5 CVPfX_DEE XNE - .PROCPOXNTER_TYPE 



?? RUSH (LIST :« ON) ?? 

€ cvp$i_def ine_proc_pol nter_tyoe > 

?? POP ?? 

PROCEDURE CXREE1 cvp$l_def i ne_proc_po i nt er^type C 

VAR type.ld* cvt$i_code_gener ator_i d> ; 

PURPOSES 

This procedure defines a new pol nter-to-pr ocedure type, 

4.3.6 €¥P$I_DEEINE_RANSE_TYP£ 

?? PUSH CLISTEXT *« ON) ?? 

*copyc cvt$i_code_ganer ator_l d 

?? POP ?? 

?? PUSH (LIST :« ON) ?? 

C cvp$ i.dcf i na_range_type > 

?? POP ?? 

PROCEDURE fXREFI cvp$ l_def i ne_r ange_typa ( 

fower.bound* integer? 
upper^bound! integer? 
VAR type.ids cvt$ i_code_<jener ator_i d) ? 

PUR POSE J 

This procedure defines and describes a new integer type with which 
bounds constraints are associated. It is the responsibility of the 
Host to ensure that objects of this type do not have values outside 
the specified bounds. The Code Generator will not perform or 
introduce bounds checking based on the specified bounds constraints, 

4.3.7 CVPSI.DEFINS.RECORD.TYPE 



?? PUSH CLISTEXT :« ON) ?? 

*copyc cvt$i_code_gener ator_ i d 
♦copyc cvt$l_r*cord_attr I butes 
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4.0 INTERFACE PROCEDURES 

4.3.7 CVP$I„DEEINE_RECORD_TYPE 

*cooyc cvt$i_r ecor d_deser i ptor 

?? POP ?? 

?? PUSH fLIST s» ON* ?? 

C cvp$i_def I ne^recor d.type > 

?? POP ?? 

PROCEDURE CXREFl cvp$ i.def ioe^recor d.type C 

record_attr I butes J cvtSi^record^attributes? 
record_des crip tors *cvt$l_recor d.descr I ptor s 
VAR type^id? cvt$i_code,„.oenar ator.i d) ? 

PURPOSES 

This procedure defines and describes a ne* record type* 

ORDERING: 

Each fie!d_type of the record must be previously defined by a call 
to one of the folloainti type definition procedures? 
cvp$i_def ine_array_type> cvpSl.def i ne_f nteo,er_subtype# 
cvp$i_def ine_pointer_typet cvp$i_def i ne_ or oc_po in te retype • 
cvp$l_def ine_r ange_type» cvp$i_def ine_r eeord^type* or 
cvp$f_def ine_scal a retype. 

4.3.8 CVPSI..DEEINE_SCALAR_TYPE 

?? PUSH (IISTEXT s» 0*) ?? 

♦copyc cvt$i_code_gener ator_l d 
♦copyc evt$i_scal ar_tyoe 

?? POP ?? 

?? PUSH (LIST 5« ON) ?? 

C cvp$i_def loe_ seal ar_ type > 

?? POP ?? 

PROCEDURE IXREF1 cvp$ l.def ine.scal ar.typs I 

scalar_types cvt$l_scal ar_type? 
VAR type.ld* cvt$i_code_genarator_i d) ; 

PURPOSES 
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4*0 INTERFACE PROCEDURES 
*.3.8 CVP$I_DEFINE_$CAIM?_TYP£ 



This procedure defines a new scalar type- 
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4,0 INTERFACE PROCEDURES 

4,4 OBJECT DEFINITION PROCEDURES 

Etch object referenced In one of the object definition* code 
emission? or *?uery procedure calls must have been previously defined 
by one of the object definition procedure calls. 

4.4.1 CVP$I_DEFINe_DATA_AR£A 

?? PUSH CLISTEXT *» ONI ?? 

*cooyc cvtSi^code^gener ator_i d 
*copyo cvt$l_dat«._«re«_attr1 but as 

?? POP ?? 

?? PUSH fLIST «* ONI ?? 
C cvpS1_def I ne_data_area > 
?? POP ?? 

PROCEDURE CXREE1 cvp$i_def ine_data_area ( 

da.ta._ar ea^attr I butes* cvt$i_data_area_attrlbutes; 
VAR deta_area_J d? evt$l_code_gener ator_l dl ? 

PURPOSE: 

This procedure defines and describes a net* data area. A data area 
is a region In virtual memory where an unordered collection of data 
Items is placed fe.g. a CY8IL section). The relative location 
within the data area of each data itea* Is undefined! the Code 
Generator «uay alter the Item order Ino from that given by the Host. 

4.4.2 CV"P$I_DEFINE_DATA„ITEK 

?? PUSH (LISTEXT ? = ON) ?? 

*copyc cvt$i_code_gener ator_i d 
*copyc cvt$i_data_l taro.attr Ibutes 

?? POP ?? 

?? PUSH CLIST :« ON) ?? 
{ cvp$i_def i ne_data„l ten 1 
?? POP ?? 
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4,0 INTERFACE PROCEDURES 
4.4.2 CVP$I_DEFmE_DATA_ITEW 



PROCEDURE CXREF1 cvp$ i.defi ne.data.i teas C 

data.! te«.«ttr Ibutes* cvt$l_data_l tew_attr I butes ; 
VAR data.i tem_idt evt$i...coda 4 _gener ator.l df ? 

PURPOSE* 

This procedure defines and describes a new data item. A data Item 
is a positional ty independent region in virtual memory (e.g. a 
CY8II variable). If a data ita*a has an internal structure* the Code 
Generator will treat that structure as inviolable. 
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4.4.3 CVP$I.D£FINF.PARAM.AREA 



?? PUSH (LISTEXT ?« ON) ?? 

*copyc cvtSl.code.gener ator.i d 
*copyc cvtSi.param.area.attr I butes 

?? POP ?? 

?? PUSH (LIST i« ON) ?? 

f evp$l.def ine. paran. area > 

?? POP ?? 

PROCEDURE CXREF1 evp$ i.def ine.par aai.area ( 

oaram.area.attr IbutesJ cvtt l.paraii.area.attr I butes? 
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4.0 INTERFACE PPOCEOUR^S 

4.4.3 e¥P$I_DEFIN£_PARAH_AREA 

VAR par am_area_J ds cvt$i_cQde_gener ator_id? 

VAR precedlng_word_id* cvt$i_code_aenerator_i d) ; 

PURPOSE? 

This procedure defines and describes a new parameter area* A 
parameter area Is a region In virtual memory where an ordered 
col lection of 




4.4*4 CVP*I.DEFINE_PARA*_ITEM 

?? PUSH CLISTEXT s« ON) ?? 

*copyc cvt$i_code_gener ator_i d 
♦copyc cvt$i_par am_i tem.attr ibutes 

?? POP ?? 

?? PUSH ILIST s« ON) ?? 

C cvp$1_def ine^oar aft_.lt em > 

?? POP ?? 

PROCEDURE IXREF1 cvp$ i_def ine.p^ram.i tarn f 

param_i tem.attr i butest cvt$l_par am_i tem.attr ibutes ; 
VAR param_i tem_ids cvt$i_code_gener ator_ld) ; 

PURPOSE? 

This procedure defines and describes a new parameter item* A 
parameter Item is a region in virtual memory where a parameter list 
entry is placed. Each parameter item must have a Physical layout 
(param^i tem_format) conforming to one of the layouts described in 
Section 5*2.5 of the SIS. 

ORDERING: 

Every actual parameter item must hm^^ as its enefos lng_r out I ne the 
routine within which the associated actual routine call occurs In 
the source language program. Every formal parameter Item must have 
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4.0 INTERFACE PROCEDURES 
4,4.4 CVP$I_0EEINE_PARAH_ITE*1 



as its encloslng^rout Ine the routine with which it is associated. 
The enclosing_rout Ine inust fee previously defined fey a call to 
cvp$i_def ine_routlne. Every parameter item must reside In a 
parameter area* The enclos I nonpar a»_ar ea must be previously defined 
by a call to cvp$l_def i ne.parai.area* The type of each field of the 
parameter item must he previously defined by a call to one of the 
'following tyoe definition procedures? cvp$ l_def ine_array_type* 
cvp$i_def J ne_lnteger_subty pe§ cvofl _def i na_po inter _ type * 
cvp$l.def ine_proc«pointe retype* cvp$i_def I ne.r an ge_ type* 
cvo$i_def lne_r ecord_type* or cvp$i_de?ine_scai ar.type. 



4.4.5 €VP$I_DEFIME_ROUTINE 



?? PUSH tUSTEXT :« ON) ?? 

*copyc cvt$i_code_generator_i d 

♦copyc cvt$i_name 

*copyc cvt$i_nestlng_rout ine 

?? POP ?? 

?? PUSH (LIST ?« ON) ?? 
C cvp$i_def lne„_rout i ne > 
?? POP ?? 

PROCEDURE tXPEFl cvp$ i_def Ine.r out i ne { 

nest lng_r out ine* cvt$l.nest lng_routine; 
r out ine_name* cvt$i_name? 
VAR routine_idt cvt$i_code_gener ator.i dl ; 

PURPOSES 

This procedure defines a new routine (aka. procedure* function* or 
entry point). 

ORDERING* 

The routine must be described in a subsequent call to 
cvp$i_def ine_r outine_attr Ibutes. Every routine must be associated 
with the nest i ng_rout Ine within which It Is statically nested; 
except that a routine at the outermost nesting level has an 
nesting.routine of cvc$ i_ni i_i d specified. Except for the case of 
AOA-style separate compilations* the nest i ng_r out Ine must be 
previously defined by a call to cvpSl^def i ne.r out ine. 
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4,0 INTERFACE PRQCEOUPES 

4.4.6 CVP$I_D£FI^€_ROUTINE_.ATTR IBUTES 

4.4.6 CVP$I_0E£!NE_prJUTI!4f_&TTPTBUTES 

?? PUSH ClISTEXT ?» ON) ?? 

*copyc cvt$i_code_gener at or .id 
♦copyc cvt$l_routina_attr ibutes 

?? POP ?? 

?? PUSH (LIST ? = OM) ?? 

C cvp$l_def ine_routine_attr ibutes > 

?? POP ?? 

PROCEOURE CXREF1 cvo$ l.def ine.rout i ne.attr ibutes C 

rout Ine^id: cvt$i_code_gener«tor_i d? 

r out i ne_attr ibutes? cvt$ l.routi ne_attr ibutes) : 

PURPOSES 

This Procedure describes a routine. 

ORDERING? 

The described routine must be previously defined by a call to 
cvp$i_def ine_ routine. There *sust be one calf to 
cvp$i_def i ne_routi ne_attr ibutes for each call to 
cvp$ i_def I ne.rout ine; thus no two calls to 

cyp$l_def lne_routine_attr I butes way specify the sane routlne_ld. 
The type of every routine Khich returns a value (has the function 
property) must be previously defined by a call to one of the 
following type definition procedures? cvo$l_def Ine.arr ay_type> 
cvo$l.def i ne_ Integer. sub type* cvp$i_def in«_pointer_typa» 
cvp$i_def i ne_proc - .Pointer_type# cvp$i_defi ne_r ange_type» 
cvp$ l_def i ne_r ecord_type» or cv»$ l.def I ne.scal ar.type. The 
routlne_typa of routines which do not have the function property is 
specified as cvcff.nl l.'ld. 
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4.0 INTERFACE PROCEDURES 

4.5 POSITION DEFINITION PROCEDURES 

4, 5 £Q£IIIM-£££IMIIIM-£EQ££Mia£3 

Each position (I.e. label or Hoe) referenced in one of the 
position definition or coda emission procedure calls roust have been 
previously defined by one of the position definition procedure 
calf s. 

4.5.1 CVP*I_DEFINe_LABFL 

?? PUSH UISTEXT :* ONI ?? 

*copyc cvt$i_code_<3ener ator.l d 
*copyc cvt$i_oape 

?? POP ?? 

?? PUSH ftlST *■ ON) ?? 
C cvp^i_de*ine_label T 
?? POP ?? 

PROCEDURE CXREF1 cvpS i.def ine_ I sbel f 

I ahe l.na»«i cvtSi^namej 
V AR iabei_ids cvt$i .corie.generator.i d) • 

PURPOSE* 

This procedure defines % new label. 

ORDERING? 

The label must tee described In a subsequent call to 
cvpSi.de^ lne_l abel^attributes. 

4. 5. a CVPSI.DEFINC.LABft. ATTRIBUTES 

?? PUSH UISTEXT ** ON) ?? 

*cooyc cvt$i_code_ganer ator_id 
*cooyc cvt$i_l abe!_attr i butes 

?? POP ?? 

?? PUSH CLIST :« ON) ?? 
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4.0 INTERFACE PROCEDURES 

4,5.2 €VP$I_0eFX^_LIB£L_ATTRX8UTE$ 



C cvo$i_def lne_t abel.attr i butes > 
?? POP ?? 

PROCEDURE tXREEl cvpS i_defi na_l abe l.attr i bytes C 

f abel.! dt cvt$i_code_gensr ator_ld: 

I aba 1_at tributes? cvt$l_l ahel.attr I botes) I 

PURPOSE* 

This procedure describes a label* 

ORDERING: 

The described label must be previously defined by a call to 
cvp$i.def lne_l abel • There must be one call to 

cvp$i_def lne_l abel_attr i butes for each call to cvp$i_def ine.l abel » 
thus no two calls to cvo$i_def lne_l abel_attr ibutes may specify the 
same label. id* Every label must be associated with the I ine.nu^ber 
on which it was defined In the source language program* The 
I ine.number must be previously defined by a call to 
cvp$i_def lne_l ine. 

4.5.3 CVP$IJ)EI=INE_IINE 



?? PUSH UISTEXT s* ON) ?? 

*copyo cvtSi^code_<iener ator_i d 
♦eopyc cvt$i_l i ne.attrlbutes 

?? POP ?? 

?? PUSH (LIST ?» ON) ?? 
C cvp$i_def lne_l ine > 
?? POP ?? 

PROCEDURE tXREFl cvp$ i _def I ne_l I ne I 

I Ine^at tributes? cvt$i_l i ne.aittr I butes; 
VAR I ine_id? cvt$i_code_gener ator_i d) ? 

PURPOSE? 

This procedure defines and describes a new source line. 
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4,0 INTERFACE PROCEDURES 
4.6 CODE EMISSION PROCEDURES 



4.6 £OM-iM£SIS£L££Q£EmiR£i 

The Host may pass a code sequence to CVCG using the code emission 
procedure calls. Each instruction that way be placed in the cod^ 
sequence is referred to In terws of that instruction's opcode* Thus 
an "s.add" instruction is one haying an opcode of w cvc$l_op_s_add** 
(scalar numeric add!* Every instruction ?aust he associated *ith the 
line_nu«ber in the source language program **hich led to that 
instruction's emission* The llne^numher must he previously defined 
by a call to cvp$i_daf I ne_l i na* 

4.6*1 CV*>$I_EHIT_OEREE_TNSTP 

?? RUSH ClISTEXT :* ON) ?? 

*copyc cvt$i_code_gener ator^id 
*copyc cvt$i_code_gener ator_opcode 
*copyc cvt$i_lnstruction_attributes 
*ccpyc cvt$i_ Instruct ion^operand 

?? POP ?? 

?? PUSH (LIST :« ON) ?? 
C evpSi.emi t_deref_instr > 

?? POP ?? 

PROCEDURE CXREE1 cvp* i_eml t_deref_i nstr { 

i nstruction.attr I butes: cvt$i_| nstruct ion_attr I but as? 
ooer and#ls cvt$ i_i ns true t ion^ooer and* 
VAR i nstruct ion_i ds cvt$i_code_generator_i dl ; 

PURPOSE: 

This procedure emits a "deref" (pointer dereference) instruction* 

ORDERING: 

The instruction operand must be a data item previously defined by a 
call to cvp$l_def ine_data..i teat* or must be the result of a 
previously emitted instruction* The instruct! on_id can be used as 
an operand in subsequent Instructions. 
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4.0 INTERFACE PROCEDURES 

4.6.2 CVPST_EHIT_EN0..OF_OEBUe_l>*CKET 

4.6.2 CVP$I_Er1IT_END_0F_DEBUG_PACKET 

?? PUSH (IISTEXT *« ON) ?? 

?? P0?> ?? 

?? PUSH CLIST : = ON) ?? 

C cyp$i_en»it_end_of_basic_fclock > 

?? POP ?? 

PROCEDURE IXREF1 cvp$ l.erol t_end_of_debug_packet I 
PURPOSES 

This procedure is needed only when stylized debug code is to be 
generated. It indicates that the end of a debug packet {normally* 
the end of a source language statement) has been reached. 

ORDERING* 

This procedure must be called at the end of each debug packet after 
all other code emission procedure calls within that packet* and 
prior to any code emission procedure calls for later debug packets. 

4.6.3 CVPSI.EHIT.FIELD.REFERENCE 

?? PUSH CLISTEXT «« OH) ?? 

*copyc cvt$i_code_gener ator_i d 
*copyc cv t$ i_ Ins true tlon^attrl butes 
♦ cooyc cvt$i_record_lndex_l i st 

?? POP ?? 

?? PUSH (LIST ** ON) ?? 

i cyp$i_ercit_f leld_ref erence > 

?? POP ?? 

PROCEDURE CXREF1 cvoi i_emit_.fi el dereference ( 

instruct ion_attr i but es? cvt*l_l nst met ion.attr ibutes? 
r ecord_data_i temt cyt$i_eode_t?ener ator_i d* 
r ecord_index_count * integer; 
record_lndex_l i st* *cvt$ J_record_l ndex.l 1st* 
VAR i nstruct ion_l d* cvt$i_code_generat or_i d) ; 
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4.0 INTERFACE PROCEDURES 

4. 6.3 CVP$I.€HTT.FI£LO.RFFHP.ENICi: 



PURPOSE? 

This procedure emits the instruction necessary to reference a fieid 
within a record or nested record, 

ORDERING? 

The recor d_data_itew must be a data item previously defined by a 
cali to cvp$i_def lne_data_l tern* or iiust be the result of a 
previously emitted instruction* The i nstructlon_1 d can he used as 
an operand in subsequent instructions. 



4. 6. A CVP*I_E1IT - .INSTR_WITH_RESULT 



?? PUSH CUSTEXT ?« ON) ?? 

♦copyc cvt$i_code_?jener ator_ id 
*copyc cvt$l.l nstruct ion_attr ibutes 
*copyc cvt$i.iostruct ion_ooerand 
*copyc cvt$i_instr_*»J th_resul t 

?? POP ?? 

?? PUSH fUST ?* ON) ?? 

C cvp$i_eml t_lnstr_*l th_resul t > 

??• POP ?? 

PROCEDURE CXRFF1 c vp$ i.emi t_ ins tr.wi th.r esul t ( 

Inst ruction. attributes? cvt$l_! nstruct ion.attr ibutes? 
opcode? cvt$ l.i nstr.vf i th_resul t J 
operandi].* cvt$i. Instruct ion.oper and? 
operandi? cvtfl.i nstruct ioo.oper and; 
operandf3? cvtS i_i nstruct lon_operand» 
oper andfAi cvt$i_ instruct ion^operand? 
VAR i nstruct I on. I d? cvt$i_code_gener ator.l dl ; 

PURPOSE? 

This procedure is used for the amission of most instructions for 
which the Code Generator returns a result identifier to the Host* 

ORDERING? 

The instruction operands must be previously defined by a calf to a 
definition procedure* or roust be the result of a previously emitted 
instruction* Unused operands are specified as cvc$ l.nl l.l d. The 



4-28 
CYBER Vectorizinq Cods Generator Interface Spec! f I cut I on 

85/01/03 

4*0 INTERFACE PROCEDURES 

4.6*4 CVP$I_EHIT_INSTR_WITH_RESt1LT 

result i nstruct ion_l d can be used as an operand in subsequent 
instruct i ons* 

4.6.5 €V?>SI_fHXT_IN$TR_va?HOUTJ*£SUtT 

?? PUSH ILISTSXT s* ON) ?? 

*copyc cvt$l_code_gener ator.i d 
*copyc cvt*I.I nstruct lon_attr Ibutes 
*copyc cvt$i_i nstruetlon.operand 
*copyc cvt$i_i nstr.til thout_r«sut t 

?? POP ?? 

?? PUSH CLIST :* ON) ?? 

K cvp$i_effll t_in$tr_wlthout_resut t > 

?? POP ?? 

PROCEDURE IXR£1=] cvp$ i.eail t_ ins tr_wi thout_resul t < 

Instruct ion_ at tr ibutes: cvt$i_instruct ion.attr ibutes? 

opcode: cvt$ i_instr_wi thout.resut t ? 

oper andflt cvt* 1. 1 nstruct ion.oper andj 

operand #2: cvt$ i_l nstruct lon_operand; 

oper an d# 3: cvt$ i_l nstruct ion_ooer and I 

oper and*4: cvt$ i_i nstruct ion_ooerand; 

target: cvt$ i_code_g ener at or _i d) ; 

PURPOSE: 

This procedure is used for the emission of those instructions for 
which the Code Generator does not return a result identifier to the 
Host. 

ORDERING: 

The instruction operands and taroet must be previously defined by a 
call to a definition procedure, or must be the result of a 
previously emitted instruction* Unused operands are specified as 
cvc$l_ni I I d • 

4.6.6 CVPSI^EHIT.LAaEt.LIST 
?? PUSH CLISTEXT :* ON! ?? 
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4.G INTERFACE PROCEDURES 
4.6,6 CVP$I_EHIT_tABEt_LIST 



*copyc cvt$i_code_gener ator_id 
*copyc evt$i_code_gsner ator_i d_! i st 
*copyc cvt$i_i nstruct ion_attr ibutes 

?? POP ?? 

?? PUSH (LIST s» ONI ?? 
C cvpfi^emit^l abel.list > 
?? POP ?? 

PROCEDURE tXRFFl cvo* i_emi t_! abei_! I st < 

i nstruct Jon_attr ibutes* cvt$!_i nstruct ion_attr ibutes ? 
iahei. counts integer? 

i abe!_1 i sts A cvt$i_code_gener ator_i d_1 1st? 
VAR Hst_ld* cvt*i_code_gener ator.1 d) s 

PURPOSES 

This procedure emits a w p_1_llst w tlabel fist) instruction, 

ORDERING: 

Each iabel in the iist must be oreviously defined by a caJ i to 
cvp$i_def ln*_l abet • The iist.id can be used as an op^r^nti in 
subsequent instructions* 

4,6.7 CVP$I_£HIT_OPERAND_lI$T 



?? PUSH (LISTEXT :« ON) ?? 

*copyc cvtSi_code_gener ator_i d 
*copyc cvt$i_ instruct lon_attr! butes 
*copyc cvt$i_ instruct ion_oper and_! 1st 

?? POP ?? 

?? PUSH (LIST ** ON) ?? 

C cvp$ i_emi t_operand_i J st > 

?? POP ?? 

PROCEDURE CXREF1 cvp* i_emi t_ooer and.f J st { 

instruct ion_attr i but ess cvt$i_instruction_attri butes; 
operand^counts integer? 

oper$nd.ilstt A cvt$i. Instruct ion_operand_l i st * 
VAR list.idt cvt$i_code_8enarator_i d) : 
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4,0 INTERFACE PPOCEDUPSS 
4*6*7 CVPSI^EHIT^OPERANO.LIST 



PURPOSES 

This procedure emits a **p_llst w (opsrtnd llstl instruction* 

ORDERING* 

Each operand in the list must be previously defined by a call to a 

definition procedure* or must foe the result of a previously emitter 

Instruction, The tist.ld can be used as an operand In subsequent 
Instructions* 
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4.7 QUERY PROCEDURES 

4.7 ftU££X-£Sfi£EME£S 

The Host pay obtain certain information from CVCG for use in 
creation of a reference map and/or of a (debug) symbol table. This 
information may only foe queried subsequent to a call to 
cvp$i_becrin_gener at i on. 

4.7.1 CVPSI.QUERY.tOCATION 

?? PUSH (IISTEXT s. ON) ?? 

♦copyc cvt$i_code_oener ator.i d 
*cooyc cvt^i.l ocation 

?? POP ?? 

?? PUSH (LIST :* ON) ?? 
•C cvp$i_c?uery.!ocat Ion > 
?? POP ?? 

PROCEDURE fXREFI c vp$ i.quer y_t ocat i on ( 

object. i ds cvtt l.eode.aenarator.i d; 
VAR location: cv t$l _f ocat i on ) ; 

PURPOSE? 

This procedure returns the location (If any) associated with a 
constant* object* label* or record field. 

ORDERING? 

A constant must be previously defined by a call to a constant 

definition procedure. An object must be oreviously defined by a 

call to an object definition procedure. A label must be previously 

defined fey a call to cvp$i_def Ine.l abel • A record field must be 

previously Identified as the result of a call to 
cvp$i_emi t.f I el dereference. 

4.7.2 CVP$T_QUERY_ROUTXNEJ_ENGTH 

?? PUSH (IISTEXT ?- ON) ?? 
*copyc cvtti.code.gener at or. I d 
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4»7.2 €VP$L.QUFRY_ROUTINE_Lf : NGTH 

*copyc cvt$ i_s i ze_i n_bytes 

?? POP ?? 

?? PUSH HIST s* ON) ?? 

C cvp$i_quer y_rout ine_I ength > 

?? POP ?? 

PROCEDURE CXREF1 cyp$ i_guery_rout lne_ I engtM 

rout ! ne.ids cvt$i_code_generator_i d; 
VAR lengths cvt$ i_s i *e_in_bytes ) ? 

PURPOSE: 

This procedure returns the byte length associated with a routine 
which has a 'local'* '^ain'* or 'xdcl* rout lne_scope« If this is an 
alternate entry point of a multiple entry point routine* then the 
length is that associated with the primary entry point, 

QPDERTNGJ 

The routine must he previously defined by a call to 
cvo$l_def ine^routine* 
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4.8 TRANSMISSION PROCEDURES 



*.8 I£M£!III£imLfSQ£f £iiE£S 



CVCG Mill place a (debug) tins table In the binary file 
automatically unless cvc$l..no_debug.J i na_t able Is Included In the 
generation_restr let ions field of the code_generator_attr ibutes 
passed to cvp$ l_begi n_modul e. With the transmission procedures the 
Host may direct CVCG to place additional information directly Into 
the binary file* The Host is responsible for the contents and 
structure of this information? it will not be altered by CVCG except 
as described below for the (debug) symbol table. 



4.8.1 CVP$I_TRANSMIT_LOADER_TABLE 



?? PUSH (LISTEXT i« ON) ?? 

♦copyc cvtSi.loadar. table 

*copyc cvt$ i_s I ze_l n.bytes 
?? POP ?? 

t? PUSH (LIST s= ON) ?? 

C cvpii.transmlt.loader. table > 

?? pop ?? 

PROCEDURE tXREEl cvo$ t_tr ansmi t_l oader.t abi e ( 

f o ad er_tabl S* A cvt$i_1oader_tab lei 
loader_tabl e_ length* cvt$ i_sl ze_ln .bytes > * 

PURPOSE! 

This procedure transmits a loader table directly to the binary file. 
It should be used for all Host generated loader tables except the 
(debug) symbol table. 



4.8.2 CVP$I_TRANSHIT_SYHSOL_TAPLE 



?? PUSH (LISTEXT «* ON) ?? 
♦copyc cvt$i„l oader_tab le 
♦copyc cvtil.sl ze.l n. bytes 

?? POP ?? 

?? PUSH (LIST t* ON) ?? 

t CYp$i_transmi t^syjflbol^tabl e > 

?? POP ?? 
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4.0 INTERFACE PROCEDURES 

4*8.2 CVRSI.TRAHSHXT. SYMBOL. TABLE 



be Inserted Into the symbol table 
200. Otherwise the symbol table 



PROCEDURE fXREFl cvp$ l.tr ansmi t.symbo l.t ab I e C 

loader, tab lei A cvt$l_ loader. tab le; 

I o ad er. table. length? cvt$ i.slze.l n. bytes M 

PURPOSE! 

This procedure transmits a tdebuq) symbol table directly to the 
bleary file. The line table will 

when the target system Is a CYBER 
Is transmitted unchanged. 

ORDERING* 

If ovpSi.transml t.symbol.tabt a Is called* then 

cveSi.no. debug. symbol. ttble must not be Included In the 

gener at ion.restr ictions field of the code.generator.attr Ibutes 

passed to cvp$ i.begl n. module* If cvoSI.tr ansml t. symbol. tabl e Is 

called* then C¥C$l.oo.debug.symbol.tabl e must be Included In the 

gener ation.restr lotions field of the code. generator. attr ibutes 

passed to cvpt i.begin.modul e» 



not 
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Each stack frame on the system stack consists of two sections? a 
fixed part and a variable part* The fixed part of the stack frame 
is allocated memory by CVCG at compile time. The Code Generator has 
full control of the memory layout of this fixed part* The variable 
part of the stack frame is allocated memory dynamically by the 
compiled program at execution time* The Code Generator has no 
control of the memory layout of this variable part* Note that the 
Code Generator may allocate memory in the variable part 
independently of Host directives to allocate memory in the variable 
part* Thus consecutive Host allocations of memory In the variable 
o^rt are not guaranteed to allocate consecutive locations of memory* 
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A1.0 STACK FRA^E LAYOUT 

Al.l CYBER 180 STACK FRAHF DIAGRAM 



Al • 1 £Xfl££Ufifi-£IAC&-E&Aa£JHAfi£A!! 



A stack frame on the CYBER 180 system* is generated fey CVCGf can be 
illustrated as follows. 



I 



{preceding frames) 



♦0 ! Reserved for NOS/VE use I 
1 «.«..«,«.*«.«.«.«,««»«.«..•»«.«>«.«».«..«.•.«»».»«. i 



+ 1 
+2 
♦ 3 



♦k 



+ m 



♦n 



Parameter List Pointer 
Reserved for Host use 



! R&$ervtid for future use 



+4 ! 



Oi spl ay 



♦J I 
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t 
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.i 
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: 

•f 
i 
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! 

. • 

« 

! 

• 
! 
: : ? 

I k« atae atasaia* at«ar« at af»«at at aiataiatai ataiat at at | 

J * ! 

I (succeeding frames) J 



Stack Variables Area 

: 

Register Spill Area 
t 

Dynamic Space 



Register Save Area 



{mmnnmummmnm+ 



F i xed 
Part 



Var i able 
Part 



<* 



Associated with each procedure are the following registers. 

AO The Dynamic Space Pointer contains the address of the next 

available word on the stack. 
Al The Current Stack Frame Pointer contains the address of the 

first word on the stack for the given procedure. 
A2 The Previous Save Area Pointer contains the address on the 

stack of the calling procedure's Register Save Area* 
A3 The Binding Section Pointer contains the address of the 

binding section. 
A4 The Parameter List Pointer* u©on entry to a procedure* 

contains the address of the first *ord of the parameter list. 

The CVCG stores this address in the Parameter List Pointer of 
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A1*Q STACK FRAN* LAYOUT 

Al*l CYBER 180 STACK FRAME DIAGRAM 

the called procedure's stack frame* Subsequent to storing 
A4* CVCS may reuse A4 for other purposes during execution of 
the rest of the procedure. 



Al.l*l CY9€» 180 STACK FRAMf 



♦0 The word at word-offset from the beginning of each stack , 
frame Is reserved by CVCG for use by the MOS/VE Operating 
System* 

+1 The word at word-offset 1 from the beginning of each stack 

frame is used by CVCG to contain the Parameter List Pointer* 
left justified. 

♦? The word at word-offset Z from the beginning of each stack 
frame is reserved by CVCG for use by the Host language* 

+ 3 The word at word-offset 3 from the beginning of each stack 
frame is reserved by CVCG for future use* No code should 
define or reference it* 

♦4 The words starting at word-offset 4 from the beginning of each 
stack frame are used by CVCG to contain the static display* 
consisting of pointers which enable a nested procedure to 
access variables declared in its enclosing procedures* The 
size of the display depends or^ the nesting level* There is 
one word in the display for each enclosing procedure; the 
word contains the Current Stack Frame address of the 
enclosing procedure* left Justified* 

♦J The words immediately following the Display in each stack 
frame contain space for automatic variables and workspaces 
having a fixed length at compile time* The size and layout 
of this space is determined by CVCG* 

*k The words immediately following the Stack Variables Area of 
each stack frame contain workspace used by CVCG to hold the 
contents of hardware registers which must be spilled at 
execution time* 

+m The Dynamic Space in each stack frame contains space for 

variables and workspaces having an unknown length at compile 
time* 

+n The Register Save Area is created and used by the hardware 
CALL and RETURN instructions* for saving and restoring 
registers across a procedure call* 
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A1.0 STACK FRAME LAYOUT 

Al*2 CYBER 200 STACK FRAHE DIAGRAM 

Al * 2 £mi-2l^-m£K-.£aAJ!!£-SIMEM 

A stack frame on the CYBER 200 system* as generated fey CVCG* can be 
illustrated as follows. 

! (preceding frames) ! 

• • * 

• « » 

I mm m mm mm mmmmm mmmmm mm mm mmmmmmm t <*».« * mm m mm mm + 

+0 ! Register S^ve Area ! ! 

i f t f 

* — »■— • — — — _ — — t ^ 

+256 ! Parameter List Pointer ! ! 

i , . — i I 

+25? ! Reserved for Host use ! ! 

* « » 
+258 ! Reserved for future use ! ! 

• , — . 1 Fixed ! 

+259 I Display ! Part ! 

J s : ! 

j • 1 • 

+J ! Stack Variables Area ! ! 

: : i ! 

I . 1 I 

+k ! Register Spill Area ! ! 

ii! ! 

i , . 1 < _ *. 

+m ! Dynamic Space I Variable ! 
i i i Part ! 

\ mm mm mmmmm m mm mmmmm mm mm -mmmmm mm 9 ^mm mm mmmmm mm + 

• • • 

! (succeeding frames) ! 
Associated with each procedure are the following registers* 

#18 The Dynamic Space Pointer (DSP) contains the address of the 

next available even-word on the stack* 
*1C The Current Stack Frame tCSF) contains the address of the 

first word on the stack for the given procedure* 
*1D The Previous Save Area (PSA) contains the address on the stack 

of the calling procedure f s Register Save Area* 
*17 The Parameter List Pointer* upon entry to a procedure* 

contains the a <irir^ss of the first word of the parameter list. 

The CVCG stores this address in the Parameter List Pointer of 

the called procedure's stack frame* Subsequent to storing 

Register #17* CVCG may reuse #17 for other purposes during 

execution of the rest of the procedure. 
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A1.0 STACK FRASE tAYOUT 
Al.2.1 CYBER 200 STACK FRAME 

A1.2*l CYBER 200 STACK FRAME 

♦0 The Register Save Area is created and used by instructions 

generated by CVCG* for saying and restoring registers across 
a procedure call* 
+256 The word at word-offset 256 from the beginning of each stack 
frame is used by CVCG to contain the Parameter list Pointer* 
right justified. 
♦257 The word at word-offset 257 from the beginning of each stack 

frame is reserved by CVCG for use by the Host language. 
♦258 The word at word-offset 258 from the beginning of each stack 
frame is re$®rvG4 by CVCG for future use. No code should 
define or reference it* 
+259 The words starting at word-offset 259 from the beginning of 
each stack frame are used by CVCG to contain the static 
display* consisting of pointers which enable a nested 
procedure to access variables declared in its enclosing 
procedures* The size of the dlsolay depends on the nesting 
level* There is one word in the display for each enclosing 
procedure; the word contains the Current Stack Frame address 
of the enclosing procedure* right justified. 

+j The words itnnied latel y following the Display in each stack 
frsme contain soaee for automatic variables and workspaces 
having a fixed length at compile time* The size and layout 
of this space is determined by CVCG* 

+k The words immediately following the Stack Var i ables Ar ea of 
each stack frame contain workspace used by CVCG to hold the 
contents of hardware registers which must be spilled at 
execution time. 

♦m The Dynamic Space in each stack frame contains space for 

variables and workspaces having an unknown length at compile 
time. 
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81.0 ISIEiaSi£-SflUIlil£-US Afi£ 



CVCG supports a large number of intrinsic routines* i*e« routines 
(functions* subroutines* procedures* etc*) known to the Code 
Generator* Inline code will be generated for PROst of these 
routines* The rest of these will be generated as calls to library 
routines* The Host may request that the parameter list for a 
library call he placed in sseiory rather than in registers via the 
aenerat lon.restr Ictions field of the code_generator_attr Ibutes 
parameter of the cvp$l_begi n^podu I e call* 

In order for the appropriate library routines to be present at 
execution tine* the Host must Include the math library (mlffllbrary 
on the CYBER 180) in the library_list field of the 

code_generator_attr i butes parameter of the evp$i_feeg in.modul e call* 
If the Host references either of the code generator intrinslcs 
C¥c$i_sfunc_inde* or cvc$i_vfunc_lndex» then the Host must also 
Include the Fortran library (flf$llbrary on the CYBER 180) in the 
I ibrary_! 1st* 
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B 2 . IMI£lJlSlC-SiaiIII4£-aA!5IHfi-£a!iy£!iIIQI!S 



Host Intrinsic names (such as 48S or 00TPRQ0UCT) are really generic 
frames representing a whole family of separate* specific* routines* 
CVCG provides a different intrinsic. Id for each specific Intrinsic 
routine it supports* All routine identifiers start with "cvc$i <i .%_ n 
where w £ w is one of: M mcall w * "mfunc*** **rfunc w * "scall** "sfunc*** 
M tcall w * "tfunc"* M vcal l w # or "vfunc*** Hany routine Identifiers 
also have a suffix to Help Identify which specific routine is of 
Interest. 

B 2 • 1 IH£l4IlEI££S_£mi,HUU-A*A 

These nr^t used for miscellaneous routines which are implemented as 
subroutine calls* If they are source language functions then the 
function result appears as the first subroutine argument* and the 
n*th function argument appears as subroutine argument n+1. These 
routines are referenced In an instruction sequence by use of the 
H cvc$l_Gp_icaH w code generator opcode? except for the w raof w 
function with an array result* which uses the **cvc$ l_op_v_r anf ** 
opcode* and for the "ranget" and w ranset w subroutines* which use the 
w cvc$i_op_ranf M opcode* 



BE . 2 Ifi£MII£i££S_M£iI-fl£UM£- 



JLAX 



These are used for miscellaneous functions having a non-character 
scalar result* They are referenced in an Instruction sequence by 
use of the w cvc$i_op_ifunc w code generator opcode; except for the 
**ranf M function* which uses the M cvc$ l_op_s_ranf M opcode* 



B2.3 IS£MII£I£S£JLmi-EfU!iL. 



in 



These are used for array reduction functions which return a scalar 
result. These functions are all well-behaved <ie* have no side 
effects)* They are referenced in an instruction sequence by use of 
the "cvcf i_op_v_if unc.r w code generator opcode* 
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B2*Q INTRINSIC ROUTINE NAHING CONVENTIONS 
82.4 IDENTIFIERS CVC$I_SCALl_, ., 

These are used for scalar functions which return a character scalar 
result* Note that these functions are implemented as subroutine 
cells. The function result apoears ^s the first subroutine 
argument* and the n'th function argument appears as subroutine 
argument n+1* For each •scall* function there is a corresponding 
•veal I • function* These functions are all wal l-behaved tie* H%v^ 
no side effects!. They are referenced in an Instruction sequence by 
use of the M cvc$i_op_ieal I H code generator opcode* 



92 . 5 H2£NII£I£ES^aHH.S£yii£^ AA 

These ar^ used for scalar functions which return a non-character 
scalar result* For each •sfunc' function there is a corresponding. 
•vfunc 1 function* These functions ^r e all well-behaved <le« have 
no side effects). They are referenced In an instruction sequence by 
use of the m cvc$I_op_s_I func** code generator opcode* 



B2 . 6 I&£MIIEI£SS_£i£ii-KAkL- A A* 

These are used for those transformational functions which return a 
character array result* and for those which are array reduction 
functions over a dimension which Is not known at compi le-t ime* A 
transformational function Is a ^unction which in general can not be 
evaluated Independently for each array element* Note that these 
functions are implemented as subroutine calls* The function result 
appears as the first subroutine argument* and the n*th function 
argument apoears as subroutine argument n+1* These functions are 
all well-behaved (le* have no side effects)* They urn referenced 
in an instruction sequence by use of the w cvc$ l_oo_ i cal I *• code 
generator encode* 



B2.7 x££m£iissj;mi-i£UM<:- 



JtJLA 



These Bra used for those transformational functions which return a 
non-character array result (including array reduction functions with 
an array result* provided that the reduction dimension Is a 
complle-time constant)* A transformational function Is a function 
which in general can not be evaluated independently for each array 
element* These functions are all well-behaved Cie. have no side 
effects)* They are referenced in an instruction sequence by use of 
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B2*7 IDENTIFIERS CV€$I_TFUN€_. .. 

the w cvc$ l_op_i func" code generator opcode* 
82 . 8 XM MXiU£E$_£mi_M££U_** A 

These are used for non-scalar elemental functions which return a 
character array result* A non-scalar elemental function Is a 
function with array arguments and an array result which can he 
evaluated independently for each array element* Note that these 
functions are implemented as subroutine calls* The function result 
appears as the first subroutine argument* and the n f th function 
argument appears as subroutine argument n + 1* For each f vcall f 
function there is a corresponding f scall f function* These functions 
are all wel l-behaved (is* have no side effects)* They are 
referenced in an instruction sequence by use of the * , cvcSi_op_i cal • w 
code generator opcode* 

BZ . <? XS£m£II£$-£]&II-¥£yM£-j.** 

These are used for non-scalar elemental functions which return a 
non-character array result* A non-scalar elemental function Is a 
function with array arguments and an array result which can be 
evaluated independently for each array element* For each , vfunc* 
function there is a corresponding •s^unc 1 function* These functions 
are all well-behaved Ue* have no side effects!* They are 
referenced in an instruction sequence by use of the 
n cvc$l_op_v_i f unc M code generator opcode* 

92.10 Hi£liIIEl£&-SUE£lX£*i 

bsign: This Indicates that some of the operands and/or result 

have a value corresponding to the code generator type of 
cvt$i..type_bQo!ean_s I gn* 

bOU This indicates that some of the operands and/or result 

have a value corresponding to the code generator type of 
cvt$ i_type_bool ean_0_l* 

chars This indicates that some of the operands and/or result 

have a value corresponding to the code generator tyoe of 
cvt$ i_type_char_ string. 

c6*t This indicates that some of the operands and/or result 

have a value corresponding to the code generator type of 
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82.10 IDENTIFIER SUFFIXES 

cvt$ I _type_coiPp I ex_64. 

cl28s This Indicates that so?ne of the operands and/or result 

have a value corresponding to the code generator type of 
cvt$ i_type_cos?plex_128. 

c256* This Indicates that soine of the operands and/or result 

have a value correspond Ing to the code generator tyoe of 
cv t$ I _type_co?f»P I ex_256. 

1322 This Indicates that so«fle of the operands and/or result 

have a value corresponding to the code generator tyoe of 
cvtS I _typa_lnteger_32. 

164? This Indicates that soaie of the operands and/or result 

have a value corresponding to the code generator type of 
cvtS l_typa - .lnteger - 64» 

r32» This indicates that sone of the operands and/or result 

have a value corresponding to the code generator type of 
cvt$i_type_real_32. 

r64: This indicates that soiie of the operands and/or result 

have a value corresponding to the code generator type of 
cvt$i_type_real_64, 

rl28t This indicates that some of the operands and/or result 

have a value corresoond Ing to the code generator type of 
cvt$i_typa_r9a 1.128. 

lbiti This indicates that the operands and/or result have a 
length of 1 hit. 

8bit: This Indicates that the operands and/or result have a 
length of 8 bits* 

16hits This Indicates that the opernrsds and/or result have a 
length of 16 bits. 

32bit* This indicates that the operands and/or result have a 
length of 32 bits. 

64b it* This Indicates that the operands and/or result have a 
length of 64 bits. 

128blt* This Indicates that the operands and/or result have a 
length of 128 hits. 

collated* This Indicates that the operation uses a character 
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B2.10 IDENTIFIER SUF?IXJ=S 



col I atlon tab le. 
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83 . imim£-E£UIIM£.Ii££IMli;mMS 



Host routines correspond to FORTRAN expression operators or to 
FORTRAN intrinsic routines (the specific version if there is both a 
specific and a generic version with the same name) as defined in the 
CDC Standard FORTRAN language Specification* A few routines 
correspond to ADA operators as defined in the Military Standard for 
the ADA Programming language; or to BASIC routines as defined in the 
Virtual BASIC External Reference Specification! or to CYBIl 
intrinsic routines as defined in the CYBIl language Specification? 
or to PASCAL predefined routines ns defined in the PASCAL User 
Manual end Report by Jensen and VHrth* Other miscellaneous routines 
are provided as needed. 

The order of arguments is that defined for the positional (rather 
than keyword! form of the routine* For binary operators* the 
leftmost ooerand corresponds to the first argument. 

The number of arguments (excluding function results which are 
Implemented as subroutine arguments) Is that defined in the 
appropriate language specification* with the following exceptions? 

- routines listed below with a specified argument count* 
routines where an exception Is specifically noted below* 

- routines having the •collated 1 Identifier suffix; these 

routines have one additional argument ( pos i t lonal I y the list) 
which Is a ?56-byte collation table* 

Broadcast scalar arguments may be substituted for array arguments in 
the following cases: 

- any one* but not both* arguments of a non-scalar elemental 

function having two arguments (excluding collation table)* 
any one or two* but not all three* arguments of a non-scalar 
elemental function having three arguments (excluding 
collation table)* 

- any one* two* or three* but not all four* arguments of a 

non-scalar elemental function having four arguments 
(excluding collation table). 

- the HASK argument of the following array reduction functions? 

maxval* minval* product* sum. If this argument is a 
broadcast scalar* it must also be a compile time constant. 

- the first argument of the transformational function! diagonal. 

- the third argument of the transformational function! unpack* 
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?? PUSH (LISTEXT 3* ON) ?? 

?? POP ?? 

?? PUSH (LIST s» ON) ?? 
C cvt$l_intr insic.id > 
?* POP ?? 

?? FHT (FORMAT 1« OFF) ?? 
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expacte 
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p - T 
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on 
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on 
o be 

on 
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o be 
o be 

for 
o be 



suppor 

the CY8 

suppor 

both th 

suppor 

both raa 

suppor 

suppor 

suppor 

suppor 

new so 

supoor 



ted 

ER 1 

ted 

e CY 

ted 

chi n 

ted 

ted 

ted 

ted 
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ted 



In 

80 
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in 
e 

fo 
fo 
fo 
fo 
d 
f o 



the f 
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the s 
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an ea 
I ines# 
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r a fu 
at a ty 
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Irst co 
a rest 
econd c 
and €YB 
rly cod 
wl th a 
initial 
Initial 
Initial 
ture re 
o%s Inc 
initial 



de ge 

r i cte 

ode g 

FR 20 

e gen 

full 

ADA 

SASI 

CYBI 

f ense 

I u d I n 

PASC 



nerator 
d set o 
ener ato 
0). 
er ator 

set of 
and CYB 
C relea 
L rel ea 

of CDC 
gs c6*» 
AL rele 



routines which are 

Its first few 

CYBIL* FORTRAN* and 
eluded for support if 
e listed routines will 
erator* Each routine 
ing characters* 
expected to first be 



release {for CDC FORTRAN 
f array IntrlnsicsJ* 
r release (for COC FORTRAN 

release (for COC FORTRAN 

array Intrinsics)* 
IL releases. 
se« 
se (see also f A» ) • 

FORTRAN with extensions 

c256* and i 33 » 
ase* 



TYPE 

cvt$l_intr ins Ic.id 



cvcl 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvcl 
cvc$ 
cvc$ 
cvcS 



.non.lntr I nsi c» 



.meal 
,%c a I 
.meal 
,mca I 
,«cal 
.meal 
.weal 



CI? -This is used for non-lntr Insl c routines- 



.cur rent_stack.fr ame* CAs 

.prevl ous.s ave.areat CA* 

-.ranf* 

_r anget» 

_r anset* 

.scan.b 01* 

.scan.hs I gn# 



_mf unc.ranf* 



CI* 
f.Bi 
CBS 
CCs 
CCs 
CIS 



See 
See 

See 
See 
See 
See 
See 
See 



CYBILs 

CYBILs 

FORTRAN* 

FORTRAN: 

FORTRAN! 

CYBILs 

CYBILS 

FORTRANs 



fcurrent_stack.fr awe 
fprev lous.save.area 



ranf 
r anget 
r anset 
iscan 
is can 
ranf 



-See 
-See 
-See 
-See 
-See 
-See 



Note 
Note 
Note 
Note 
Note 
Note 
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cvc$ 
cvcf 
cvcf 
cvcf 
cvc$ 
cvcS 
cvcf 
cvcf 
cvc$ 
cvcf 
cvc$ 
cvcf 
cvcf 
cvc$ 
cvcf 
cvcf 
cvcf 
cvcf 
c»c$ 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvc$ 
cvcf 
cvc$ 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcS 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 
cvcf 



.rf unc, 
.rf unc, 
.rfunc. 
.rfunc. 
.rf unc. 
.rf unc. 
,r f unc, 
.rf unc. 
.rf unc. 
.rfunc. 
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.rf unc. 
.rfunc. 
.r f unc, 
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.rfunc. 
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.rfunc, 
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.rfunc. 
.rfunc. 
.rfunc. 
.rfunc. 



.al l.bOlt 
.a I t.bsi on* 
.any.bOlt 
.any.bsi gn» 
.count. Ibit 
.count. bGlt 
.count. bs lg 
.dotproduct 
.dotproduct 
.dotpr oduct 
.dotproduct 
.dotproduct 
.dotproduct 
.dotproduct 
.dotproduct 
_i 32 
.i32 
.164 
.J 64 
.r!2 
«rl2 
.r32 
.r32 
.r64 
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.132 
.132 
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.r!2 
«rl2 
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.r32 
«r64 
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.maxva 

.maxva 

.maxva 

.laxvi 
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.maxva 
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.maxva 

.maxva 
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.mi nva 

.mi nva 

.minva 

.minva 

.Pi nva 
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.minva 
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.pr oduct. cl 

.pr oduct. cl 

.product.c? 

.product. c2 

.pr oduct. c6 

.pr oduct. c6 

.product.13 

.product. 13 

.product. i6 

.product. 16 

.product. rl 

.product.rl 

.pr oduct. r3 
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n> 
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.132* 
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.bOlf 
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.fe01# 

.bsi gn* 
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See 
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See 
See 
See 
See 
See 
See 
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See 
See 
See 
See 
See 
See 
See 
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See 
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See 
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See 
See 
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FORTRAN* 
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DIM) 

DIM) 
DIM) 
DIM) 
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DIM) 

mm 
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cvc$ 


.r func. pr oduct.r64.b01* 


€3* 


See 


FORTRAN* 


product 


1 two 


args* 




DIN) 


cvc$ 


.rf unc. pr ©duct.r64.bsl gn* 


€3* 


See 


FORTRAN; 


product 


(twO 


args* 


no 


DIM) 


cvc$ 


I.rfunc.sufl?.cl28.b01* 


€25 


See 


FORTRAN* 


sum 


(two 


args* 


no 


DIM) 


€VC$ 


.r f unc.su*>.cl28.bs 1 gn* 


CIS 


See 


FORTRAN* 


sum 


(two 


args* 


no 


DIN) 


cve$ 


i .r f un e.s u ns.c 2 5 6.b 1 * 


€Fs 


See 


FORTRAN* 


sum 


( two 


args* 


no 


DIN) 


cvcl 


.rf unc.su*i.c256.bsign* 


€F* 


See 


FORTRAN* 


SUI 


i two 


args* 


no 


DIM) 


cvc$ i 


l.rf unc.s usi.e64.b01* 


€F* 


See 


FORTRAN* 


suss 


C two 


args* 


no 


DIM) 


cvc$ 


.r fune.suia.e64.bs ign* 


€F* 


See 


FORTRAN* 


SUi 


( two 


a r g s » 


no 


DIN) 


CYC$ 


.rfunc.susi.i32.b01* 


€F* 


See 


FORTRAN* 


SUffi 


(two 


args* 


no 


DIN) 


evc$ 


.r func.su m. 132. fes Ign* 


€F* 


O f5 " 


FORTRAN* 


sum 


(two 


args* 


no 


DIM) 


cvc$ 


.rf unc.su «a_ 164. bOl* 


€2* 


See 


FORTRAN* 


SUi 


f two 


args* 


no 


DIM) 


evc$ 


.r ? unc.s urn.) 64. bs I gn* 


€1* 


See 


FORTRAN* 


suns 


(two 


args* 


no 


DIM) 


cvcl 


1 .r f unc.su $.r 12 8.b 01* 


€2s 


See 


FORTRAN* 


SUI 


(two 


args* 


no 


DIM) 


cvcS 


i.r f unc.sui.r 128.bs ign* 


C15 


See 


FORTRAN* 


sum 


( two 


args* 


no 


DIM) 


evc$3 


.r f unc.s uus.r 3 2.b0 1 * 


C2s 


See 


FORTRAN* 


sum 


(two 


argsp 


no 


DIM) 


evc$ 


.rfunc.suflR.r32.bs I gn* 


€25 


See 


FORTRAN; 


sum 


C two 


a r g s t 


no 


DIM) 


cvc$ 


i.rf unc.s u?R.r64.b01* 


€2? 


See 


FORTRAN* 


sum 


(two 


args* 


no 


DIM) 


CVC$ i 


.r f unc.sum.r64.bs I gn* 


€15 


See 


FORTRAN* 


sum 


C two 


args* 


no 


DIM) 


evcS 1 


.seal l.char* 


€15 


See 


FORTRAN* 


char 


CFTXFD col lation) 


CVC$1 


i.scal I.cnar.col I a ted* 


€15 


See 


FORTRAN* 


char 


(USE? 


I col t 1 


it Ion) 


cvcl 


.seal l.nser ge.char.bOl* 


€25 


See 


FORTRAN* 


merge 










C¥C*i 


.seal l.ffiarge.ehar.bsl gn* 


€15 


See 


FORTRAN* 


merge 










cvcSl 


.sf unc.abs* 


€ls 


See 


FORTRANS 


abs 










cvc$ 


.sf unc.acos* 


€15 


See 


FORTRAN* 


acos 










cvc$l 


.sfunc.al mag* 


€15 


See 


FORTRAN: 


almag 










cvc$ 


.sfunc.al nt* 


€15 


See 


FORTRAN* 


a Int 










0¥C$ 


i.sf unc. al og* 


€15 


See 


FORTRAN* 


alog 










cvc$ 


.sfunc.al oglO* 


€15 


See 


FORTRAN* 


aloglO 










cvc$ 


.sf unc.ainaxO* 


€15 


See 


FORTRAN* 


amaxO 


(two 


args) 






cvc$1 


.sf unc.amaxl* 


€15 


See 


FORTRAN? 


amaxl 


( two 


args) 






cvcl 


.sf unc.a*» inO* 


€15 


See 


FORTRAN* 


aasinO 


(two 


args) 






C¥C$ 


.s func. ami nl* 


€ls 


See 


FORTRAN* 


affil nl 


(two 


args) 






evet 


.sf unc.airaod* 


€ls 


See 


FORTRAN* 


awod 










cvcl 


.sf unc.and.lbi t* 


€15 


See 


FORTRAN* 


and 


(two 


args* 


bit) 


cvcl 


l.sf unc.and.64b I t* 


€15 


See 


FORTRAN* 


and 


(two 


args* 


teool ean) 


cve$ 


i.sf unc. an Int* 


€15 


See 


FORTRAN* 


anlnt 










cvc$i 


.sf unc.as In* 


€15 


See 


FORTRAN* 


asln 










cvc$ 


.sf unc.at an* 


€15 


See 


FORTRAN* 


atan 










cvc$ 


i.sfunc.atan2* 


€ls 


See 


FORTRAN* 


atan2 










cvc$ 


.sfunc.atanh* 


€15 


See 


FORTRAN* 


atanh 










cvcS 


i.sf unc.boo l.o f. char* 


€15 


See 


FORTRAN* 


boo! 


(character 


arg only) 


cvc$ 


l.sfunc.btol.bOl* 


€2 5 


See 


FORTRAN* 


btol 










cvcS 


I.sf unc.btol.bs i gn* 


€ls 


See 


FORTRAN* 


btol 










cvcl 


i.sf unc.c 128. to. cl 2 8_powar t 


€15 


See 


FORTRAN* 


•**» operator 








cvcl 


.5func.cl28.to.c256_POwer* 


€Ft 


See 


FORTRAN* 


***• operator 








cvcl 


I.sf unc.cl28.to.c64.power* 


€Fs 


See 


FORTRAN* 


***' operator 








cvc$ 


.sf unc.cl28.to.l32.power * 


€F* 


See 


FORTRAN* 


t**t operator 








cvc$ 


I.sf unc.cl28_to.i&4.power* 


€15 


See 


FORTRAN* 


•**• operator 








cvc$ 


l.sfunc.cl28.to.rl28.power» 


€15 


See 


FORTRAN: 


»*** operator 
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evsll 


_sfunc. 


.cl28..to 


_r32. 


.power* 


C2? 


See 


FORTRAN? 


i**t 


operator 




cvef i 


_sfunc. 


.cl2 8_to 


_r64. 


.power * 


CI? 


j88 


FORTRAN? 


i**t 


operator 




C¥C$ 


jf unc. 


„c256_to 


_C12 


8_power* 


CFs 


See 


FORTRAN? 


• **« 


operator 




C ? vl i 


„s*unc. 


.c256_to 


_c256..POwer» 


CFs 


See 


FORTRAN* 


t**i 


operator 




evcll 


_sf unc. 


.c256_to 


_c64 


.power* 


CFs 


See 


FORTRAN? 


t**t 


operator 




C¥€$ 


_sf unc. 


.e256_to 


-«32. 


.power* 


CFS 


See 


FORTRAN? 


t**t 


operator 




CVC$i 


_sfunc. 


.c256_to 


-J&4, 


.power* 


CFs 


See 


FORTRAN? 


i **t 


operator 




cvc$ 


_sf unc. 


.c256_to 


_rl28_power t 


CFs 


See 


FORTRAN? 


t**t 


operator 




CVC$: 


_sf unc. 


.c256.to 


.r32. 


.power* 


CFs 


See 


FORTRAN? 


i**i 


operator 




CfC$l 


_sf unc. 


.c256_to 


_r64 


.power * 


CFs 


See 


FORTRAN? 


• **! 


operator 




cvc$ ; 


_sfune. 


.c64_to.. 


C128, 


.power* 


CFs 


See 


FORTRAN? 


t**l 


operator 




cvcl 3 


_sfunc. 


.c64_to_ 


c256 


.power* 


CF? 


See 


FORTRAN? 


***t 


operator 




CVCl 


■_sf unc. 


.c64_to.. 


c64_ 


power* 


CF? 


See 


FORTRAN? 


f **t 


operator 




cvcl 


_sf unc. 


.c64_to_ 


132. 


oower, 


CFs 


See 


FORTRAN? 


t**t 


operator 




cvcl 1 


_sf unc. 


_c64_to_ 


1 64_ 


power * 


CFs 


See 


FORTRAN? 


f **f 


operator 




cvcl 


_sf unc. 


„c64_to_ 


rl28 


.power * 


CFs 


See 


FORTRANs 


I **t 


operator 




cvc$ 


_sf unc_c6 4_to_ 


f 32_ 


power* 


CFs 


See 


FORTRAN? 


t**t 


operator 




cvcl 


_s^unc. 


,c64_to_ 


r64_ 


power* 


CF? 


See 


FORTRAN? 


f**t 


operator 




cvcl 


_sf unc. 


.cabs* 






Cls 


See 


FORTRANs 


cabs 






cvcl 


■_sf unc. 


.ccos* 






Cls 


See 


FORTRAN? 


ccos 






CVG$ : 


_sfunc. 


.cdabs* 






CFs 


See 


FORTRAN? 


cdabs 


Cabs for 


c256) 


cvc$ 


_sfunc. 


.cdcosi 






CF? 


See 


FORTRAN? 


cdcos 


(cos for 


c256) 


cvcl 


_sf unc^ 


.cdexp* 






CFs 


See 


FORTRAN? 


cdexp 


(exp for 


C256) 


cvc$ : 


_sfunc. 


.cdlog* 






CFs 


See 


FORTRANs 


cdlog 


flog for 


C256) 


evei '■ 


_sfunc. 


.eds in* 






CF? 


See 


FORTRAN? 


cdsln 


(sin for 


c256! 


cvcl 


_sfunc. 


.cdsgrt* 






CF? 


See 


FORTRAN? 


cdsqrt (sort for 


C256) 


cvcl 


_sf unc. 


.eel If 






C8? 


-»»? \£ IK 


BASIC? 


ceil 


Cr64 arg 


and result) 


cvcl 1 


i_sf unc. 


,cexp» 






CI? 


See 


FORTRAN? 


cexo 






cvcl 


.sfunc. 


.chabs* 






CF? 


See 


FORTRAN? 


chabs 


Cabs for 


c64) 


cvc$ 


_sf unc. 


.cbcos* 






CFs 


See 


FORTRAN? 


chcos 


Ccos for 


c64) 


cvcl 


_sf unc. 


.ehexo* 






CFs 


See 


FORTRAN? 


chexp 


lexp for 


c64) 


evcli 


_sf unc. 


.ch log* 






CFs 


See 


FORTRAN? 


chlog 


Clog for 


c64) 


C V C I 


i.sfunc. 


.eh sin* 






CFs 


See 


FORTRAN? 


chsln 


Csin for 


c64) 


CVCl 


_sfunc. 


.chsqrt* 






CFs 


See 


FORTRAN? 


chsort fsort for 


C641 


cvcl 


_sf unc. 


.Cl 00* 






CI? 


See 


FORTRAN? 


clog 






cvcl 


_sf unc. 


.cibpIx* 






Cls 


See 


FORTRAN? 


cmplx 


(two ergs 


* real) 
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FORTRAN? 

FORTRAN! 

FORTRAN? 

FORTRAN? 

FORTRAN! 

FORTRAN? 

FORTRAN! 

FORTRAN! 

FORTRAN! 

FORTRAN! 

FORTRAN? 

FORTRAN! 

BASIC? 

BASIC: 

FORTRAN: 

FORTRAN? 

FORTRAN: 

FORTRAN! 

FORTRAN? 

FORTRAN: 

FORTRAN: 

FORTRAN: 

FORTRAN: 

FORTRAN: 

FORTRAN: 

FORTRAN: 

FORTRAN? 

FORTRAN: 

FORTRAN: 

FORTRAN? 

FORTRAN: 

FORTRAN? 

FORTRAN? 

FORTRAN? 

FORTRAN: 

FORTRAN? 

FORTRAN? 

FORTRAN: 

FORTRAN: 

FORTRAN? 

FORTRAN: 



• *** 

t** 

»** 

• $* 

t*# 

• ** 
t** 

• ** 

• ** 
t** 
t** 
t## 
t** 
t** 
«** 
«** 

rprod 

sgn 

sgn 

shift 

sign 

sin 

sind 

sinh 

sgrt 

tan 

tand 

tanh 

all 

all 

any 

any 

count 

count 

dlago 

maxva 

maxva 

maxva 

maxva 

maxva 

maxva 

maxva 

maxva 

maxva 

maxva 

minva 



oper 
oper 
oper 
oper 
oper 
oper 
©per 
oper 
oper 
oper 
oper 
oper 
oper 
oper 
oper 
oper 
oper 
oper 
ooar 



ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 



( 164 arg* 164 result) 
(r64 arg* 164 result) 
(boolean first arg) 



nal 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

! 



(tw 

( tw 

(tw 
(tw 
(tw 
(tw 

(th 
(th 
(th 
(th 
(tb 
(th 
(th 
(th 
(th 
(th 
(th 



o ar 
o ar 



ar 
ar 
%r 
ar 



ree 
ree 
ree 
ree 
ree 
ree 
ree 
ree 
ree 
ree 
ree 



gs) 
gs) 
gs) 
gs) 
gs) 
gs) 

args) 
args) 
args) 
args) 
args) 
args) 
args) 
args) 
args) 
args) 
args) 
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CVCl 

cvcl 
cvcl 
cvcl 

cvcl 

CVCl 

cvcl 
cvc$ 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 



luteal 1 


i.tcal I 


I.tcal 1 


i.tcal 1 


i.tcal 1 


i.tcal 1 


1 _. VVl* f 


i_tcaf 1 


luteal I 


luteal 1 


luteal! 


1 . t c a I 1 


i.tcal 1 


luteal 1 


luteal 1 


luteal I 


I.tcal f 


luteal f 


i.tcal 1 


luteal 1 


i . t c a 1 1 


i.tcal i 


i.tcal i 


I.tcal! 


i . t c a 1 1 


luteal 1 


i.tcal 1 


i_tcal 1 


I.tcal ! 


luteal 1 


i.tcal 1 


I.tcal 1 


i.tcal 1 


i.tcal I 


i.tcal I 


i_tca! 1 


i.tcal i 


i.tcal 1 


i.tcal i 


i.tcal 1 


i.tcal 1 


i.tcal * 


i.tcal i 


i.tcal 1 


i.tcal I 


i.tcal 1 


i.tcal I 


i.tcal i 


I.tcal! 



mi nval. 
,mi nval. 
.mi nval. 
.mi nval. 
,mi nval. 
,mi nval. 
,mi nval. 
mi nval. 
,mi nval. 
.Pack_ch 
.pack.in 
.product 
.product 
.product 
.product 
.product 
.product 
.product 
. p r o du c t 
product 
.product 
.product 
.product 
.product 
.product 
.product 
.product 
.rep! 
.reol 
.repl 
repl 

.repl 
.repl 

.reol 

repl 

spread. 

spread. 

.spreads 

.spread. 

.spread. 

.spread. 

spread. 

spread. 

.sum.cl2 

,sum.el2 

.suw.c25 

,sum.c25 

,sum.c64 

.sum_c64 



ca 
ca 
ca 
ca 
ca 

ca 
ca 



I32.bstgn# CFs See FORTRAN 

I64_b01> C3s See FORTRAN 

i64.bslgn» C3s See FORTRAN 

rl28_b01# C3* See FORTRAN 

rl£8.bsign* €3? See FORTRAN 

r32.b01* C3* See FORTRAN 

r32.bsign* C3s See FORTRAN 

r64.b01* C3* See FORTRAN 

r64.bslgn» €3* See FORTRAN 

ar» CI* See FORTRAN 

sert.char* CI* See FORTRAN 

.cl28.b01* C3s See FORTRAN 

.cl28.bsign» C3s See FORTRAN 

_c256_b01* CFs See FORTRAN 

.c256_bsignt CFs See FORTRAN 

.c64.b01* CFs See FORTRAN 

.c64_bsigo* CFs See FORTRAN 

.i32.b01# CFs See FORTRAN 

.i32.hsign* CFs See FORTRAN 

.i64.h01> C3s See FORTRAN 

.i64_bsign» C3s See FORTRAN 

.r!28_b01* C3s See FORTRAN 

.rl28_bs|gn# C3s See FORTRAN 

.r32.b01f C3s See FORTRAN 

.r32.bsign> C3t See FORTRAN 

.r64.b01# C3s See FORTRAN 

.r64_bslgn, C3: See FORTRAN 

te_128bit> C3s See FORTRAN 

te.l6bit» CFs See FORTRAN 

te.lblt* C3s See FORTRAN 

te„256bitf CFs See FORTRAN 

te_32bitf C3s See FORTRAN 

te.64bit> C3s See FORTRAN 

te_8bit* CFs See FORTRAN 

te.char* C3* See FORTRAN 

128bit» C3s See FORTRAN 

16b it* CFs See FORTRAN 

lbit> C3S See FORTRAN 

256bit# CFs See FORTRAN 

32bitf C3s See FORTRAN 

64bitt C3$ See FORTRAN 

8bit» CFs See FORTRAN 

char* C3s See FORTRAN 

8.b01> C2s See FORTRAN 

8.bsign> Cls See FORTRAN 

6.b01f CFs See FORTRAN 

6.hslgn# CFs See FORTRAN 

.bOlf CFs See FORTRAN 

.bslgn# CFs See FORTRAN 



minva 

minva 

minva 

minva 

minva 

minva 

minva 

minva 

minva 

pack 

pack 

p r o du 

produ 

produ 

produ 

proda 

produ 

produ 

produ 

produ 

produ 

produ 

produ 

produ 

produ 

produ 

produ 

rep! 

repl 

repl 

repi 

repl 

rep\ 

repl 

repl 

sprea 

sprea 

sprea 

sprea 

sprea 

sprea 

sprea 

sprea 

sum 

SUfU 

sum 
sum 
sum 
sum 



ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

ct 

cate 

cate 

cate 

cate 

cate 

cate 

cate 

cate 



tbree 

three 
three 
three 
three 
three 
three 
three 
three 
two a 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 
three 



args 

args 

• 1*9$ 

args 
&r gs 
args 
args 
args 
args 
rgs) 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 
args 



array 
array 
array 
array 
array 
array 
array 
array 
three 
three 
three 
three 
three 
three 



first 
first 
first 
first 
first 
first 
first 
first 
args) 
args) 
args) 
args) 
args) 
args) 



arc) 
arg) 
ar g) 
arg) 
arg) 
arg) 
arg) 
arg) 
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cvcl I 

cvcl 

cvcl 

cvcl 

cvcl 

cvc$ 

cvcl 

cvcl 

cvcl 

cvcl 

cvcl 

cvcl 

cvcl 

GVCl 

cvcl 
cvcl 
cvcl 
cvc$ 
cvcl 
cvcl 
cvcS 
cvcl 
cvcl 
cvcl 
cvcl 
c v cl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcS 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 



.teal l.sum.i 32.b01t 
.teal l.sum.i 32.fes ign# 
.teal l.sum.i 64. bOl* 
.teal l.sum.i 64. hs lgn> 
.teal f.sum.rl28_bGl# 
.teal I.sum.rl28.bs \gn$ 
.teal I.sum.r32.b01* 
.tc a It .suf.r 3 2.hs I gn# 
.teal I.sym.r64.b01* 
.teal I.sum.r64.bsi gn» 
.teal l.transpose.char* 
.teal l.yn pack. char* 
.tf unc.al l.bOl* 
.tfunc.al J.bsi gn» 
,tf unc.al t.hCl* 
.tfunc.al t.bsl gn# 
.tf une.any.b01* 
.tf unc.any.bs I gn» 
.tf unc.count.b01* 
.tf unc. count. bs lgn» 
.tf une.di agonal.l28bit» 
.tf une.di agonal. 16bi t* 
.tf unc.dl agonal.lblt* 
.tf une.di agonal.2 56bi t* 
.tf une.di agonal.3 2bi t> 
.tf une.di agonal. 64bl tf 
.tf une.di agon a 1.8 b 1 t» 
.tf unc.matmul.bQl* 
.tf unc.matmul.bsi gn» 
.tf unc.matmul.cl2 8» 
.tf unc.matmul.c256* 
.tf unc.watiaul.c64* 
.tf unc.m at mu 1.132* 
.tf unc.matmul.i 64* 
.tf unc.matmuf.rl28# 
.tf unc.matmul.r32» 
.t f unc.m a t mu I .r 64 » 
.tfunc.maxvai.i 32.b01* 
.tfunc.maxvai.i 32.bsign* 
.tfunc.maxvai.i 64.bGl* 
.tf unc.maxval.i64.bslgn* 
.tf unc.Jfiaxva1.rl28.b0l* 
.tf unc.maxval.rl28.bs I gnt 
.tf une.maxval.r32.b01> 
.tfunc.maxval.r32.bsign» 
.tf unc.waxval.r64.b01t 
.tfunc.maxval.r64.bs ign* 
.tfunc.ro I nva I.I 32.b01* 
.tf unc. mi nva 1. 1 32. bs ignt 



CFs 


See 


FORTRANs 


sum 


(three args 


CFs 


See 


FORTRAN* 


sum 


(three args) 


C2s 


See 


FORTRAN! 


sum 


(three args) 


CI? 


See 


FORTRAN: 


sum 


(three args) 


€25 


See 


FORTRANs 


sum 


(three args) 


CI 3 


See 


FORTRAN* 


sum 


(three args! 


C2s 


See 


FORTRANs 


sum 


(three args) 


C2* 


See 


FORTRANs 


SUB! 


(three args) 


C2i 


See 


FORTRANs 


SU1 


(three args) 


CI? 


See 


FORTRANs 


sum 


(three args) 


€3* 


See 


FORTRAN* 


transpose 


Cls 


See 


FORTRANs 


unpack 


€2* 


See 


FORTRANs 


all 


(two args) 


Cls 


See 


FORTRANs 


all 


(two args) 


C3s 


See 


FORTRANs 


alt 




C3s 


See 


SQRTRAN* 


alt 




C2* 


See 


FORTRANs 


any 


(two args) 


Cl* 


See 


FORTRANs 


any 


(two args) 


C2* 


See 


FORTRANs 


count 


(two args) 


CI* 


See 


FQRTRANs 


count 


(two args) 


C3s 


See 


FORTRANs 


diagonal -See Note 4 


CFs 


See 


FORTRANs 


diagonal -See Note 4 


C3s 


See 


FORTRAN* 


diagonal -See Note 4 


CFs 


See 


FQRTRANs 


diagonal -See Note 4 


C3s 


See 


FORTRANS 


diagonal -See Note 4< 


C3* 


See 


FORTRANs 


diagonal -See Note 4 


CFs 


See 


FORTRANs 


diagonal -See Note 4 


C2s 


See 


FORTRANs 


matmy 1 




Cl$ 


See 


FORTRANS 


matmu 1 




Cls 


See 


FORTRANs 


matmul 




CFS 


See 


PORTRANS 


matmu ' 




CFs 


See 


FORTRANs 


matmui 




CFs 


See 


FORTRANs 


matmu 1 




Cls 


See 


FORTRANs 


matmu! 




Cls 


See 


FORTRANs 


matmu> 




C2S 


See 


FORTRANS 


matmu 1 




Cls 


See 


FORTRAN* 


matmu 




CFs 


See 


FORTRANS 


maxvai 


(three args) 


CFs 


See 


FORTRAN* 


maxval 


(three args) 


C3s 


See 


FORTRANs 


maxva 1 


(three args) 


C3$ 


See 


FORTRANS 


maxva ' 


(three args) 


C3 5 


See 


FORTRANs 


maxva! 


(three args) 


C3S 


See 


FORTRAN* 


maxval 


(three args) 


C3s 


See 


FORTRANs 


maxva! 


(three args) 


C3s 


See 


FORTRANs 


maxvai 


(three args) 


C3s 


See 


FORTRAN* 


maxva! 


(three args) 


C3s 


See 


FORTRAN* 


maxval 


(three args) 


C*s 


See 


FORTRANS 


minvai 


(three args) 


CFs 


See 


FORTRAN* 


minva! 


(three args) 
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C¥C$ i 


.tf unc 


evc$ ! 


.tf unc 


cvc$ 


.tfunc 


cvc$l 


.tfunc 


cvc$ 


.tf unc 


CV€$i 


.tfunc 


CVC$I 


.tfunc 


cvc$i 


.tfunc 


cvcSi 


.tf unc 


C¥C$ '' 


.tf unc 


cvcS 


.tf unc 


cvc$ 


.tf unc 


cvc$ 


.tfunc 


cvc$i 


.tf unc 


CVC$i 


.tf unc 


cvcS 


.tf unc 


cvc$ ; 


.t*unc 


CVC$i 


.tf unc 


c v c %' 


.tf unc 


cvc$ 


.tf unc 


cvc$ ; 


.tf unc 


CVC$ 


.tf unc 


cvc$ 


.tfunc 


cvc$ 


.tf unc 


cvc$ 


.tfunc 


cvcl 


.tfunc 


cvcl 


.tfunc 


cvc$ 


.tfunc 


cvc$ 


.tfunc 


cvc$ 


i. tfunc 


cvc$ 


.tfunc 


cvc$ 


.tfunc 


cvc$ 


i. tfunc 


CYC*' 


.tfunc 


C¥C$ 


i. tfunc 


cvc$ 


.tfunc 


cvc$ 


1. tfunc 


CVC$ 


i. tfunc 


CVC$ 


i. tfunc 


cvc$ 


i. tfunc 


cvc$ 


.tfunc 


CYC$ 


1. tfunc 


cvcl 


i. tfunc 


cvcl 


i .tfunc 


cvc$ 


.tfunc 


cvc$ 


i. tfunc 


cvc* 


1. tfunc 


cvcS 


.tfunc 


cvc$ 


1. tfunc 



.Mnva!_i64.bGlt C3* 

.minval.i64.bsi gnt C3* 

.*rinva1.rl28.b0it C3* 

.minvii.rl28.bsf gn» C3* 

.winva1.r3E.h01* C3* 

.ml nval.r 32.bsign# C3J 

.ipinvai.r64.b01t C3s 

.ml nva!.r64.bsignt C3? 

.packin.128bit.b01t C2J 
,packin.l28bit.bsigntCl? 

.packin.16bft.b01f CF* 

.packin.16hit.bsi gnt CF* 

.packin.lbit.bQlt C2* 

.packin.lbi t.bsignt CI* 

.packin.256bit.b01t CF 
.packin.256bit.bsi on tCF 

.oackin.32bit.b01* C2 

,packln.32bi t.bsignt C2 

.Ptckin.64bit.h01t C2 

.packin.64bi t.bs J gnt CI 

.packin.8bit.b01> CF 

.packin.8bi t.bsignt CF 

.pack.128bit.b01t C2 

.pack.l28bi t.bsignt CI 

.pack.16bit.b01t CF 

.pack.!6bi t.bsign* CF 

.pack.lbit.b01> C2 

.pack.lbi t.bsign* CI 

.pack.256bit.b01t CF 

.pack.256bi t.bsignt CF 

.pack.32bit.b01t C2 

.pack.32bit.bs ignt C2 

.Ptck.64bit.b01t €2 

,pack.64bit.bsignt CI 

.pack.8bit.b01t CF 

.pack.8bi t.bs l gnt CF 

.product.cl28.b01t C3 

.product. cl28.bsl gnt C3 

.product. c256.b01t CF 

.product. c256.bs i ant CF 

.product. e64.b01* CF 

.product. c64.bsfgnt CF 

.product.i32.b01t CF 

.or oduet.i32.bs i gnt CF 

.product.i64.b01f C3 

.product.! 64. bs i gnt C3 

.pr oduct.rl28.b01t C3 

.product.rl28.bsi gn> C3 

.product. r32.b01t C3 



of s 

See 

See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 

See 

See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 



FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 



iMnval 

minval 

ffilnval 

mlnvai 

minval 

ffiinva J 

roinva I 

fflinval 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

pack 

product 

product 

product 

product 

product 

product 

product 

product 

product 

product 

product 

product 

product 



(three 

(three 

(three 

( three 

( three 

(three 

( three 

( three 

(three 

(three 

( three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(two ar 

(two 

(two 

(two 

(two 

( two 

( two 

(two 

( two 

(two 

( two 

(two 

( two 

( two 

(three 

(three 

( three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 

(three 



ar 
ar 
ar 
ar 
ar 
ar 
ar 

%T 

ar 
ar 
ar 
ar 
ar 



args 

args) 

arcs) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

gs) 

gs) 

gs) 

gs) 

OS ) 

gs) 

gs) 

gs) 

gs) 

gs) 

gs) 

gs) 

gs) 

gs) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 

args) 
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C¥C$ I 

cvc$ 
cvcf 
cycS 
cvc$ 
cvc$ 
cvcl 
cvcf 
cvc$ 
cvcf 
cvcS 
cvcf 
cvc$ 
cvc$ 
cvc$ 
cvcS 
cvc$ 
cvcS 
cvcS 

€VO$ 

cvcf 
cvcf 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvcS 
cvc$ 
cvc$ 
cvc$ 

CVC$ 

cvc$ 
cvc$ 
cvcS 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
eye* 
cvc$ 
cvc$ 
cvcS 
cvcS 
cvcS 
cvc$ 
cvcf 
cvc$ 
cvc$ 



,tf unc. pr oduct.r 3 2_bsignf 
.tf une_product.r64.b01f 
.tfune_produet_r64_bsign* 
.tfunc_rep| i cate_128bi tf 
.tf une.repl icate_16bi t* 
.tf unc.reo I i cate.lbi t* 
.tf unc.repi I cate_256bi t* 
.tfunc_repi icate_32bi t* 
.tf une.reP I i eate.64bi t* 
.tf unc.repi ieate_8bit* 
.tf unc.seq.i32* 
.tf unc_seq_i64* 
.tf unc.sp read. 128b i t* 
.tf unc_spread_16b I tf 
.tf unc.spread.lbi t# 
.tfunc.spread.256b it* 
.tf unc.spread.32b it* 
.tf unc.sp read_64foi t* 
.tfunc.spread.8bi t* 
.tfunc_sum.cl28.b01 * 
.tf unc.suai.cl28.bs ign* 
,t f unc.s um.c 2 5 6_b 01 » 
.tf unc.suffl_c256_bs i gn* 
.tfunc.suffl.c64.b01* 
.tf unc.suw_c64.bs i gn* 
.tfunc.suffl.i32.b01* 
.tf une.suffl.i 32. bs i qn» 
.tf unc.suis.i64.b01* 
.tf une.suffl.i 64. bs i gn* 
.tf unc.suffl.rl28.b01f 
.tf unc.suffl.rl28.bs i gn* 
.tf unc_suffl.r32.b01* 
.tf unc.suffl.r32.bs i gn* 
.tfunc.suffl.r64.b01* 
.tf unc.suffl.r64.bs i gn* 
.tf unc_ transpose. 128b i tf 
.tfunc.tr anspos e.l 6b i t# 
.tfunc.tr ans pose. lbitf 
.tf unc.tr anspos e. 256b i t» 
.tf unc.tr ans pose. 3 2bitf 
.tfunc.tr anspos e. 64b i t* 
.tfunc.tr anspose.Bhl t» 
.tfunc_unpack.128bit.b01f 
.tf unc. unpack. 128bi t.bsi gn 
.tf unc.unpack.16bi t.bOl* 
.tf unc. unpack. 16b i t.bsi gn* 
.tf unc.unpack.lhi t.bOlf 
.tf un c. unpack. lb i t.bs i gn* 
.tf unc. unpack. 2 56b i t.bOl* 



C3* 


See 


FORTRAN* 


product 


(three 


args 




C3* 


See 


FORTRANS 


product 


(three 


args) 




C3* 


See 


FORTRAN* 


product 


C three 


args) 




C3* 


See 


FORTRAN* 


repi i ca 


te 






CFs 


See 


FORTRANS 


repi i cate 






C3s 


See 


FORTRANS 


repi i ca 


te 






CFs 


See 


FORTRAN* 


repi ica 


te 






C3* 


See 


FORTRANS 


repi i ca 


te 






a* 


See 


FORTRAN* 


repi ica 


te 






CFs 


See 


FORTRANS 


repi i cate 






CF* 


See 


FORTRANS 


seq 


( three 


args) 




C3* 


See 


FORTRAN* 


s^^ 


( three 


args) 




C3s 


See 


FORTRANS 


spread 


1 array 


first 


arg) 


CFt 


See 


FORTRANS 


spre^6 


( array 


first 


ar g) 


C3s 


See 


FORTRANS 


spread 


( array 


first 


erg) 


CFs 


«s e e 


FORTRAN* 


spread 


( array 


first 


erg) 


C3s 


See 


FORTRANS 


spread 


( array 


first 


ar g) 


C3* 


See 


FORTRANS 


spread 


( array 


first 


arg) 


CFs 


See 


FORTRANS 


spread 


< array 


first 


arg) 


€2* 


See 


FORTRANS 


SUffl 


(three 


args) 




€11 


See 


FORTRANS 


sum 


1 three 


args) 




CFS 


See 


FORTRANS 


SUffl 


( three 


args) 




CFt 


See 


FORTRANS 


SUffl 


f three 


args) 




CFs 


See 


FORTRANS 


SUffl 


C three 


args) 




CFs 


See 


FORTRAN* 


SUffl 


( three 


args) 




CFs 


See 


FORTRANS 


SUffl 


( three 


args) 




CFs 


See 


FORTRANS 


SUffl 


C three 


args) 




C2s 


See 


FORTRANS 


SUffl 


(three 


args) 




Cls 


See 


*=ORTPANs 


SUffl 


(three 


args) 




C2s 


See 


FORTRANS 


SUffl 


( three 


args) 




Cls 


See 


FORTRANS 


SUffl 


(three 


args) 




C2* 


See 


FORTRANS 


SUffl 


( three 


args) 




C2s 


See 


FORTRANS 


SUffl 


( three 


args) 




C2s 


See 


FORTRAN* 


SUffl 


( three 


args) 




Cls 


See 


FORTRANS 


SUffl 


( three 


args) 




C3* 


See 


FORTRANS 


transpose 






CFs 


See 


FORTRANS 


transpose 






C3* 


See 


FORTRANS 


transpose 






CFs 


See 


FORTRANS 


transpose 






C3s 


See 


FORTRANS 


transpose 






C3s 


See 


FORTRAN* 


tr anspose 






CFs 


See 


FORTRANS 


transpose 






C2s 


See 


FORTRAN* 


unpack 








Cls 


See 


FORTRAN* 


unpack 








CFs 


See 


FORTRANS 


unpack 








CFs 


See 


FORTRANS 


unpack 








C2s 


See 


FORTRAN* 


unpack 








Cls 


See 


FORTRANS 


unpack 








CFs 


See 


FORTRANS 


unpack 
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cvcl 
cvcl 
cvcl 
cvc$ 
cvc$ 
cvcl 
cvcl 
cvc$ 
cvcl 
cvcl 
cvcl 
cvcl 

CV0$ 

cvc$ 

CVCl 

cvcl 
cvcl 
cvcl 
cvcl 

CVCl 

cvc$ 
cvcl 
cvcS 

cvcl 

cvcl 
cvcS 
cvcl 
cvcl 
cvcl 
cvcl 
cvc$ 
cvc$ 
cvcl 
cvcl 
cvcl 
cvcl 

CVCS 

cvcl 
cvcl 

cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 



.tf unc_unpack.256bi t.bsi gn* CF? 

.tfunc.unpack.32bit.bGl* C2: 

.tfunc. unpack. 32b i t.bsi go* C2 

.tf unc.unpack_64b i t.bGl* C2 

.tf unc. unpack. 64b it. bs i gn* CI 

.tf unc.unpack.8bi t.bOl* CF 

.tf unc.unpack.8bi t.hsi gn* CF 

.vcaiLchan CI 

.veal l.char.col I ated* CI 

.veal l.frerge.char.bOl* C2 

.vcan_mergt.cbar.bsi gn* CI 

.vfunc.abs* CI 

.vfunc.acos* CI 

.vf unc.ai?aag* CI 

.vfunc.aint* CI 

.vf unc. a log* CI 

.vf unc.aloglO* CI 

.vf unc.aisaxO* CI 

.vf une.awaxl* CI 

.vfunc.awinO* CI 

.vfunc.aminl* CI 

.vfunc.amod* CI 

.vfunc.and.lblt> CI 

.vfunc.and.64bi t* CI 

.vf unc.anlnt* CI 

.vf unc. as in* CI 

.vfunc.atan* CI 

.vf unc_atan2* CI 

.vf unc.atanh* Cl 

.vf unc.bool.of .char* Cl 

.vfunc.btoi.b01> C2 

.vf unc.btol.bsign* Cl 

.vf unc. cl28.to.cl28. power* Cl 

.vfunc.cl28.to.c256. power* CF 

.vfunc.cl28.to.c64.power* CF 

.vfunc.cl28.to. 132. power » CF 

.vf unc.cl28.to. 164. power * Cl 

.vfunc.cl28.to.rl28.power» Cl 

.vfunc.cl28.to.r32. power* C2 

.vfync.cl28.to.r&4.power* Cl 

„vfunc.c256.to.cl28. power* CF 

.vf une.c256.to.c2 56.powert CF 

.v f unc.c256.to.c64. power * CF 

.vfunc.c256.to.l32.POwer* CF 

.vfunc.c256.to.i64.power» CF 

.vfuoc.c256.to.rl28. power* CF 

.vf unc.c256.to.r32.power* CF 

.vf unc. c256.to.r64. power* CF 

.vf unc. c64.to.cl28. power* CF 



See 

See 
See 

See 
See 
See 

See 
See 
See 
See 
See 
See 
See 
See 

See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 



FORTRAN? 
FORTRAN? 
FORTRAN* 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 
FORTRAN: 
FORTRAN? 
FORTRAN? 
FORTRAN? 
FORTRAN: 



unpack 

unpack 

unpack 

unpack 

unpack 

unpack 

unpack 

char 

char 

serge 

merge 

abs 

acos 

aiwag 

aint 

a log 

aioglO 

anaxO 

apaxl 

aminO 

am i nl 

apod 

and 

and 

anint 

as In 

atan 

atan2 

atanh 

booi 

btol 

btof 

«** 



(FIXED coi iatlon) 
(USER col lation) 



{two args) 

(two args) 

(two args) 

(two args) 

(two args* bit) 

(two args* boolean) 



• ** 

• ** 

*** 

• ** 
I** 

t** 
t** 

• ** 

t** 

• ** 



OP 

op 

op 

OP 

op 

00 
OP 
OP 
OP 
00 
OP 
OP 

op 

OP 

op 

OP 



(character arg only) 



orator 
er ator 
era tor 
er ator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
erator 
er ator 
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cvcS 


.vf ync.c64.to. 


c£56 


.power* 


CF: 


See 


FORTRAN: 


f**» OP 


arator 


CVC$ 


.vf yoc.c64_to. 


C64_ 


.power* 


£F: 


See 


FORTRAN: 


**#t operator 


cvc$' 


.vf ync.cfe4_to. 


*32_ 


power* 


CF: 


See 


FORTRAN: 


***« operator 


cvcS 


.vf unc.c64_to_ 


i64_ 


.power* 


CF: 


See 


FORTRAN: 


•**« operator 


cvc$ 


.vf ync.c64_to_ 


rl28 


.power* 


CF: 


See 


FORTRAN: 


•*** operator 


CVC$ i 


.vf ync.c64.to. 


r32_ 


power* 


CF: 


See 


FORTRAN: 


**.*• op 


erator 


cvcS 


.vfunc.c64.to.. 


r64_ 


power* 


CF: 


See 


FORTRAN: 


•*** operator 


C¥C$ 


.vf une.cabs* 






Cl: 


See 


FORTRAN: 


cabs 




cvcS 


i.vf yne.ccos* 






Cls 


See 


FORTRAN: 


ccos 




cvcS 


.vfync.edabs* 






CF: 


See 


FORTRAN: 


cdabs 


Cabs for c256) 


cvc$ 


i.vf ync_edcos* 






CF: 


jSC 


FORTRAN: 


cdcos 


(cos for c256) 


cvcS 


.vfync.cdexp* 






CF: 


See 


FORTRAN: 


cdexp 


Cexp for c256> 


cvc$l 


I.vf ync.cd log* 






CF: 


See 


FORTRAN: 


cdlog 


(log for c256i 


evc$ 


.vf unc.ccfs in* 






CF: 


See 


FORTRAN! 


cdsln 


(sin for c256) 


cvc$ 


.vf ync.cdsgrt* 






CF: 


See 


FORTRAN: 


cdsqrt 


(sqrt for c256! 


cvc$ 1 


.vf unc.ce i I* 






C8: 


See 


BASIC: 


eel 1 


fr64 arg and resyitl 


cvc$ 


_vf ync.cexp* 






Cl: 


See 


FORTRAN: 


cexp 




cvct 


.vf unc.cfcabs* 






CFs 


See 


FORTRAN: 


en a bs 


izbs for c64> 


CV0$ 


.vf yoe.cheos* 






CF5 


See 


FORTRAN: 


chcos 


(cos for c64J 


cvc$ 


i.vf ync_cbexp* 






CFs 


See 


FORTRAN: 


chexp 


(exo for c641 


cvcS 


.vfyne.ch log* 






CF: 


See 


FORTRAN: 


chiog 


( log for c&4) 


cvctl 


.vf ync.chs in* 






CF: 


See 


FORTRAN: 


chsln 


(sin for cfe4f 


cvc$ 


.vf ync.chsqrt* 






CF: 


See 


FORTRAN: 


chsqrt 


(sgrt for cfe4) 


cvc$ ; 


.vf ync.cl eg* 






Cl: 


See 


FORTRAN: 


clog 




cvc$] 


.vf ync.cffsplx* 






Cl: 


See 


FORTRAN: 


cmplx 


( two args* real 1 


cvc$ 


i.vf ync. con jg* 






Cl: 


See 


FORTRAN: 


eonjg 




cvc$ 


i.vf ync. cos* 






Cl: 


See 


FORTRAN: 


cos 




evc$ 


.vf ync_cosd» 






Cl: 


See 


FORTRAN: 


cosd 




cvc$ 


.vfync.cosh* 






Cl: 


See 


FORTRAN: 


cosh 




cve$ 


.vf ync.cotan* 






Cl: 


See 


FORTRAN: 


cot an 




cvc$ 


.vf ync.cs In* 






Cls 


See 


FORTRAN: 


csln 




cvc$ 


.vf ync.csort* 






Cl: 


See 


FORTRAN: 


csqrt 




cvcS 


.vf ync. dabs* 






Cl: 


See 


FORTRAN: 


dabs 




cvcS 


.vf yne.dacos* 






CU 


See 


FORTRAN: 


dacos 




C¥C$ 


.vfync.dasln* 






Cl: 


See 


FORTRAN: 


dasln 




cvc$ 


.vfync.dat an* 






Cls 


See 


FORTRAN: 


datan 




cvc$ 


.vf ync.datan2* 






Cl: 


See 


FORTRAN: 


datan2 




cvc$ 


.vfync.dconjg* 






CF: 


See 


FORTRAN: 


dconjg 


Cconjg for c256) 


cvc$ 


.vf ync.dcos* 






Cl: 


See 


FORTRAN: 


dcos 




cvc$ 


l.vfync.dcosh* 






Cls 


See 


FORTRAN: 


dcosh 




CVC$! 


.vfync.dcotan* 






CF: 


See 


FORTRAN: 


dcotan 




cvc$ 


.vf une.ddlmt 






Cl: 


See 


FORTRAN: 


ddi«* 




evc$ 


.vf ync.dexp* 






Cl: 


See 


FORTRAN: 


6exp 




cvc$ 


.vf ync.di at* 






Cl: 


See 


FORTRAN: 


dim 




cvc$ 


.vf ync.dlmag* 






CF: 


See 


FORTRAN: 


dimag 


(a) mag for c256) 


cvcS 


.vf ync. dint* 






Cl: 


See 


FORTRAN: 


dint 




cvcl 


.vf ync.di og* 






Cls 


See 


FORTRAN: 


dl og 




cvc$i 


.vf ync.di oglO* 






Cl: 


See 


FORTRAN: 


dfoglO 




cvc$ 


I.vf ync.d?«axl* 






Cl: 


See 


FORTRAN: 


dwaxl 


(two args) 
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cvcl i 

eve* 

cvcl 

cvc$ 
cvc$ 

CVC I 
C¥C$ 
CVC* 

eve* 
cvcl 
cvc$ 
cvcl 
cvcl 

CVC* 

cvc$ 

CVC* 

cvc$ 
cvc$ 

cvc$ 
cvc$ 
cvc$ 
eve* 

cvc$ 

CVC* 

cvcl 
cvcl 

CVC* 

cvcl 
cvc$ 
cvc* 
cvcl 
cvcl 
cvcS 
cvcl 
cvc$ 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 
cvcl 

CVC* 

cvcl 

CVC* 
CVC* 
CVC* 
CVC* 
CVC* 



.vfunc.dmlnl* CI? See FORTRAN? 

.vfunc.dmod* CI? See FORTRAN* 

.vfunc.dnlntf CI? See FORTRAN: 

.vf unc_dprod* {H See FORTRAN? 

.vf unc.ds 1 gn» Cls See FORTRAN: 

.vfunc_dsln# Cls See FORTRAN? 

.vf unc_dsinb# CI? See FORTRAN? 

.vfunc.dsqrt* Cls See FORTRAN? 

.vfune_dtan» CI? See FORTRAN: 

,vfunc_dtanb» CI? See FORTRAN? 

.vf unc_eqv_lbi t* CI? See FORTRAN: 

.vfunc_eqv_64bit» CI? See FORTRAN? 

.vfunc_erf» CI? See FORTRAN? 

.vfuno_erfc» CI? See FORTRAN? 

.vfunc_exp* CI? See FORTRAN: 

.vfunc_extb* Cls See FORTRAN? 

.vfunc.f !oor» CBs See BASIC? 

.vfunc_f r aet_part* CB? See BASIC? 

.vfunc_habs» C2? See FORTRAN* 

.vf unc_bacos» C2? See FORTRAN? 

.vfunc.hasin* C2? See FORTRAN? 

.vfunc_batan* C2* See FORTRAN? 

,vfunc_batan2» C2: See FORTRAN? 

.vfunc.hconjgt CF? See FORTRAN? 

.vfunc_bcos# C2? See FORTRAN? 

.vf unc.bcosh* C2? See FORTRAN? 

.vf unc_bcotan* C2? See FORTRAN? 

.vfunc.hdim* C2? See FORTRAN? 

.vf unc.bexp* C2? See FORTRAN? 

.vf unc_b imag* CF? See FORTRAN? 

.vfune.bint* C2? See FORTRAN? 

.vfunc_b!og> C2? See FORTRAN? 

.vfunc.bl oglO» C2? See FORTRAN: 

.vf unc_bn*axl> C2? See FORTRAN? 

.vfunc.bwinl> C2? See FORTRAN? 

.vfunc.bmodf C2? See FORTRAN? 

.vf unc_bnlnt> C2? See FORTRAN? 

.vf unc_bslgn» C2? See FORTRAN? 

,vfunc_hsln# C2? See FORTRAN? 

.vf unc_bslnb» C2? See FORTRAN? 

.vfunc_bsqrt* C2? See FORTRAN? 

.vfunc.btan* C2? See FORTRAN? 

.vf unc_btanh» C2? See FORTRAN? 

.vfunc_i32_to_cl28_power> CF? See FORTRAN? 

.vfunc_l32_to.c256_powert CF? See FORTRAN? 

.vfunc_l32_to_c64_power» CF? See FORTRAN? 

.vf uoc„.l32_to_l32_powerf CF? See FORTRAN? 

.vfunc.i 32_to_i64_power# CF? See FORTRAN? 

.vf unc_i32_to_rl28_power» CF? See FORTRAN? 



daiinl 

dated 

dn i nt 

dprod 

dsi go 

dsin 

dsinh 

dsort 

dtan 

dt anb 

eqv 

eqv 

erf 

erf c 

exp 

extfe 

int 

fp 

babs 

hacos 

basin 

batan 

bat an 2 

bconjg 

bees 

bcosb 

bcotan 

bdlsn 

bexp 

bintag 

bint 

bf og 

bloglO 

bmaxl 

bfwlnl 

brood 

bnint 

bsi qn 

bsin 

bsinb 

hsqrt 

btan 

btanb 

«**t 

• **i 

t**i 

t**» 
i**i 
»**t 



(two args) 



(two 
(two 



args* 
ar qs» 



bit) 
boolean) 



{boolean first %rq) 
Cr64 arg and result) 
(r84 arg and result) 



Ceonjg for c64) 



(aimag for c64) 



{two args) 
(two args) 



operator 
operator 
operator 
operator 
operator 
oper ator 
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cvcS 
cvc$ 

evcf 
cvc$ 

CTC$ 
CVC$ 

cvcS 

GVC$ 

cvc$ 
cvc$ 
cvcS 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvct 
cvc$ 

CVC$ 

cvc$ 

cvc$ 

C¥C$ 

cvc$ 
cvc$ 

CVC$ 

cvc$ 

cvc$ 

cvcS 

CfC$ 

cvc$ 
cvc$ 
cvcS 
cvc$ 
cvcS 
cvc$ 
cvcS 
cvc$ 
cvc$ 
cvcS 
cvcS 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
c*c$ 
cvcS 
cvc$ 



.vfunc, 
.vfunc, 
.vf unc, 
.vfunc, 
.vf unc. 
.vf unc, 
.vf unc, 
.vf unc, 
.vf unc, 
.vf unc, 
.vfunc, 
.vf unc. 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc. 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc. 
.vfunc, 
.vfunc, 
.vfunc, 
.vfunc, 
vfunc, 



.I32.to. 

.1 32_to,„ 

.i64_to_ 

.l64_to_ 

,i64_to_ 

,164_to_ 

J64.to. 

.*64_to_ 

.i64_to_ 

.!64_to_ 

.1 ib s* 

.Icbar* 

. icnar.c 

.Id im* 

.Idn Int* 

.innint* 

.Index* 

.Insb* 

. Islgn* 

. j a b s * 

.Jdim* 

. jmaxO* 

.jnHnO* 

.JflJOd* 

.Jslgn* 

. 1 e n * 

.1 eq.bOl 

.Ieq_b01 

,leg_bsi 

. leq.bs i 

.1 ge_b01 

.1 ge.bOl 

.Ige.bsi 

.Ige.bsl 

.Igt.bOl 

.Igt.bOl 

.lqt_bsi 

.1 gt_bs l 

.lie.bOl 

Jle.bOl 

. 1 1 e.bs i 

.llejbsl 

.1 It_b01 

.ilt.bOl 

.1 1 t_bsl 

Jlt.bsl 

.Ine.bGl 

Jne.bOl 

. I ne bsi 



r32_p 
r64_© 
cl28_ 
c256_ 
c64_p 
I32_P 
i64_© 
rl2 8_ 
r32_p 
r 64_p 



o«er» 

oner* 

power* 

power* 

oner * 

ov*er» 

oxer* 

PO*er* 

ower* 

oner* 



ol I ated* 



_co I I a ted* 

on* 

gn.col I atedt 

* 

_co I fated* 

on* 

gn.co! I ated* 

* 

.col I ated* 

on* 

gn.co I I ated* 

* 

_co I i ated* 

gn* 

gn.col I ated* 

* 

_col I ated* 

gn» 

gn. col I ated* 

* 

.col I ated* 

on* 



CFs 

CF* 

CIS 

CFs 

CF? 

CFs 

CI J 

CI 

C2 

CI 

CI 

CI 

CI 

CI 

CI 

CI 

CI 

CI 

CI 

CF 

CF 

CF 

CF 

CF 

CF 

CI 

C2 

C2 

CI 

CI 

C2 

C2 

CI 

CI 

C2 

C2 

CI 

CI 

C2 

C2 

CI 

CI 

C2 

C2 

CI 

CI 

f2 

C2 

CI 



See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 
See 



FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 
FORTRAN 



t **t 
f ** t 

t#*f 
«**t 

t**t 

t *** 

I abs 

I char 

icbar 

Idlra 

Idnin 

ihnin 

I ndex 

Insb 

is i gn 

Jabs 

Jd I M 

jnsaxQ 
JminO 

jfBOd 

js ign 

len 

-See 

-See 

-See 

-See 

-See 

-See 
-See 
-See 

-See 
-See 
-See 

-See 
-See 
-See 

-See 
-See 
-See 
-See 
•See 
-See 
-See 



oper 
oper 
oper 
ooer 
oper 
oper 
oper 
oper 
oper 
oper 



at or 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 



IFIXEO co! lation) 
(USER co! lation) 



(boolean first arg) 

Cabs for 132) 

(dim for 132) 

(nax for I 321 

Cm in for 132) 

tmo6 for 132) 
{sign for 132) 



Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
Note 1- 
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cve$ 


_v?unc_l ne.bsi gn_coi i ated» 


Cl: 


See 


FORTRAN? 


-See 


Note 1- 


cvc$3 


_vf ync.l tob.b-01* 


C2? 


See 


FORTRAN? 


1 tob 




cvc$l 


„vf ync.t tob.bs 1 gn* 


Cl? 


See 


FORTRANs 


Itob 




cvc$ 


i.vf unc_maskj 


CIS 


See 


FORTRAN? 


R!lSk 




cvcS 3 


_vfync_max0# 


Cl? 


See 


FORTRAN: 


maxO 


(two args) 


cvcS' 


'_vf unc.»«xl> 


Cls 


See 


FORTRANs 


maxl 


(two ergs) 


c v c $ 1 


_vf unc_sier ge_128bi t.bOlt 


C2? 


See 


FORTRAN? 


merge 




cvcS 


_vfunc_merge_128b i t_bs ign* 


Cls 


See 


FORTRAN? 


merge 




cvc$ 


_vf unc_?*erge_16bi t_b01* 


CFs 


See 


FORTRAN? 


merge 




cvc$ 


_v? unc_.merge.JL 6b I t_bs ign# 


CF: 


See 


FORTRAN? 


merge 




v V C * 


i_v?unc_merge_lbf t.bOl* 


C2s 


See 


FORTRANs 


merge 




cvc$1 


_vf unc.mer ge_lbi t_bs lgn# 


Cl? 


See 


FORTRAN? 


merge 




cvc$ 


_vf uno_merge_256bl t_bGl> 


CF: 


See 


FORTRAN? 


merge 




cvc! 


_vf une_merge_256b 1 t_bsi on* 


CF? 


See 


FORTRANs 


merge 




C V c $ 


l_vf unc.mer ge_32bi t_bGlf 


C2? 


See 


FORTRANS 


merge 




cycl 


.vf unc_merge_32bl t_bs I gn* 


C2? 


See 


FORTRAN? 


merge 




Cf c$ 


: _yf unc_merge_84bi t_b01* 


C2? 


See 


FORTRANs 


merge 




cvc$3 


i_vf unc_merge_64bi t_bsign» 


Cl? 


See 


FORTRAN? 


merge 




cvcS 


l_vfunc_merge_8bit_bGl* 


CF? 


See 


FORTRANs 


merge 




cvc$ 


i_vf unc_merge_8blt_bsign» 


CF? 


See 


FORTRANs 


merge 




cvc$ 


_vf unc.miflO» 


Cl? 


See 


FORTRAN? 


mi nO 


f two args) 


cvc$ l 


.vfunc.mi nl» 


Cl? 


See 


FORTRAN? 


mini 


(two args) 


cvc$ 


i^vf ync.mod* 


Cl? 


See 


FORTRAN? 


mod 


(ADA •rem 1 opera tor) 


cvc$ 


_vf ync_«»od_ada> 


CAs 


See 


ADA? 


•mod 1 


ooerator 


cvc$ 


i_vfunc_neqv_lbl tf 


Cl? 


See 


FORTRAN? 


negv 


{two args> bit) 


cvc$ 


i_vfync_negv_64blt* 


Cls 


See 


FORTRAN? 


negv 


(two args* boolean) 


cvcS 


_vf ync_n i nt» 


Cl? 


See 


FORTRANs 


nint 




CVG$ 


i_vf unc_not_lbi t* 


Cls 


See 


FORTRAN? 


compl 


(bit) 


cvc$ 


_vf ync_not_64blt» 


Cl? 


See 


FORTRAN? 


compi 


f boolean) 


C Y C $ : 


_¥ f u n c . o d d._b o 1 * 


CP? 


See 


PASCAL? 


odd 




cvc$ 


_vfunc.odd.bsi gn» 


CP? 


See 


PASCALS 


odd 




cvcS 


i.vfunc.or.lbi t§ 


Cls 


See 


FORTRANs 


or 


(two argst bit) 


cvc$ 


_vf ync_or_64b 1 t# 


Cl? 


See 


FORTRANs 


or 


(two args* boolean) 


cvcS 


_vfunc - rl28_to - cl28 - powerf 


Cl? 


See 


FORTRANs 


t**t 


operator 


C¥C$ 


_vfync_rl28_tQ_e256_power# 


CF: 


See 


FORTRAN: 


? **• 


operator 


cvc$ 


_vf unc_rl28_to,,.c64_power » 


CFs 


See 


FORTRAN? 


i**f 


operator 


cvc$ 


_vf ync.rl28_to.Ji 32_power # 


CF? 


See 


FORTRAN? 


i**i 


operator 


cvc$ 


l_v*unc_rl28_to_f64_power» 


Cls 


See 


FORTRANs 


i**i 


operator 


cvc$ 


.vfunc_rl28_to_rl28_power* 


Cl$ 


See 


FORTRANs 


i **• 


oper ator 


cvc$ 


_vf ync_rl28_to_r32_power» 


C2? 


See 


FORTRANs 


• **» 


operator 


cvc$ 


.vf uncurl 2 8_to_r64_pow er* 


Cls 


See 


FORTRAN? 


• **t 


operator 


C¥C$ 3 


_vf unc_r32_to_cl28_power* 


C2? 


See 


FORTRAN? 


• **t 


operator 


cvc$ 


_v f unc.r 32.to_c256_power > 


CF? 


See 


FORTRANS 


f**i 


operator 


cvc$ 


_vf ync_r32_to_c64 - .power> 


CF? 


See 


FORTRAN? 


i**i 


operator 


cvc$ 


i_vfync_r3 2_to_132_power* 


CFs 


See 


FORTRANs 


t**t 


oper ator 


cvc$ 


_vf unc_r32_to.i64_power» 


C2$ 


See 


FORTRANs 


i**t 


oper ator 


cvc$ 


_vf unc.r 32„to_rl28_POwer» 


C2? 


See 


FORTRAN? 


i**i 


operator 


cvc$ 


«vf ync_r 32_to_r32_power » 


C2? 


See 


FORTRANs 


t**t 


oper ator 


cvc* 


i.vf unc_r32_to_r64_power* 


C2$ 


See 


FORTRAN? 


t**i 


oper ator 



CYBER Vectorizing Code Generator Interface Specification 
S4.0 €VT$I_INTRTN5IC.ID 



B4-18 
85/01/03 



cvc$ 


_vf unc 


evcSI 


i.vf unc 


cvc$ 


i.vf unc 


c»c$ 


.yf unc 


cvc$1 


l.vfunc 


cvoSI 


.vfunc 


CvcS ] 


_vf unc 


cvc$i 


l_vf unc 


cvc$ 


l_vfunc 


evc$l 


l_vf uns 


cvc$ 


l_vf uric 


cvc$ 


l.yfunc 


cvcS 


i._vf uns 


cvc$ 


l_vf unc 


cvcS 


l.vf unc 


cvc$ 


i_vf unc 


cvc$ 


l.vf unc 


cvcSI 


\Jvf unc 


cvc$ 


l.vf unc 


cvci 


1 vf unc 



.r64 <- .to_cl28_power* Cl* See FORTRAN; *** 

.r64_to_c256_POwer* CF? See FORTRAN: »** 

.r64_to_c64_power * CF: See FORTRAN: *** 

.r64_tg_l32_po*er* CF: See PQRTRAN: *** 

.r&4_to.i64_po*er* CI? See FORTRAN: «** 

.r64_to_rl28_power* CI? See FORTRAN: »** 

.r64_to_r32_po*er* £2* See FORTRAN: «** 

.r64_to_r64_p©*er* Cl: See FORTRAN: '** 

.rprod* €2? See FORTRAN: rprod 

.sgn_i64* C8: See BASIC: sgn 

.sgn_r64* C8s See 3 ASIC: sgn 

.shift* Cl: See FORTRAN: shin 

.sign* Cl: See FORTRAN: sign 

.sin, Cl: See FORTRAN: sin 

.sind* Cl: See FORTRAN: sind 

.sinh* Clt See FORTRAN: sinh 

.sort* CIS' See FORTRAN: sqrt 

.tan* Clt See FORTRAN: tan 

.tand* Clt See FORTRAN: tend 

tanh Cl: See FORTRAN: tann 



operator 
operator 
operator 
operator 
operator 
operator 
operator 
operator 



(164 arg* i64 result) 
(r64 arg* 164 result) 
(boolean first arg) 



c 
c 

c 


Notes: 














1) All of the fol toning code generator in' 


fcr Ins 


»ics appear 


In FORTRAN 


as 


c 


character relational operators* 


Some also 


np^^^r In FORTRAN as 




c 
c 
c 


specific intrinsics. 














.leq.bGl* 1 


'.FQ.< 


' operator 






(FIXED col 


1 at 1 on) 


c 


_leg_b01_c©l 1 ated* 1 


■•ECU 


1 operator 






(USER col 


1 at i on) 


c 


„1eq_bsign* < 


'•FQ. 


» operator 






(FIXED co 


1 1 at I on) 


c 


_1 eg_bsi gn_col 1 ated* < 


'•ECU 1 


r operator 






(USER co! 


1 at ion) 


c 


„lge_b01* { 


UGF. 1 


' operator* 


IGF 


intrinsic 


(FIXED col 


1 latl on) 


c 


.l9e.bOl.col fated* 


UGE. 


' operator 






(USER coll 


1 at ion) 


c 


_lge_bsign* * 


uge.< 


• operator* 


LGE 


Intrinsic 


(FIXED col 


Nation) 


c 


-t ge.bsl gn.col 1 ated* ' 


'.GE.< 


' operator 






(USER col 


let Ion) 


c 


_lgt_b01* 


UGT.i 


» operator* 


LGT 


intr ins ic 


(FIXED col 


1 1 at 1 on) 


c 


.1 gt_feQl_ col 1 ated* ' 


UGT.< 


r operator 






(USER coll 


! a t i n ) 


c 


.igt.bsign* 1 


' m GT. ' 


' operator* 


IGT 


intr ins Ic 


(FIXED col 


1 1 at 1 on) 


c 


-Igt.bsl gn.col 1 ated* 1 


'.GT.< 


1 operator 






(USER col 


1 a 1 1 n ) 


c 


.ile.bOl* < 


'.IE.< 


' operator* 


CLE 


Intr ins Ic 


(FIXED co 


I at i on) 


c 


_l ie.bOl.col lated* i 


UtE.< 


r operator 






(USER coll 


atlon) 


c 


_ 1 1 e.bs 1 gn* * 


'.IE. 1 


' operator* 


tie 


intr Ins Ic 


(FIXED col 


1 atlon) 


c 


_i 1 e.bsi gn.col 1 ated* 1 


• L E • 


1 operator 






(USER col! 


lation) 


c 


.Mt.bOlt < 


'•IT. 


1 operator* 


LIT 


intrinsic 


(FIXED col 


1 ati on) 


c 


.1 1 t.bOl.col lated* * 


'.IT. 


1 operator 






(USER col 


lation) 


c 


.1 1 t.bslgn* ' 


'.IT, 


1 operator* 


LIT 


intrinsic 


(FIXED col 


1 1 ati on) 


c 


.1 it.bsl gn. col 1 ated* < 


'.IT.' 


» operator 






fUSER col 


lat i on) 
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t „lne_b01» f *N£* f operator (FIXED ce atfon) 

C _lne_b01_eol lated* •*$£•* operator (USER collation) 

C _tne_bsign* •*NE* t operator (FIXED collation) 

C .1 oe_bsi gn.col I ated* •*NE.* operator (USER collation) 

C 

C Z) Function M cvc$i_mfunc_r ane« corresponds to the FORTRAN M ranf H 

C Intrinsic having no source arguments or having a scalar source 

f argument* In either case the code generator Intrinsic \\^s no 

C arguments* Function M cvc$i.mcall_ranf *« corresponds to the FORTRAN 

C w ranf H intrinsic having an array argument and result* In this case the 

< code generator Intrinsic has no arguments* hut has an array result 

K (appearing as the first and only subroutine argument)* For both scalar 

f and array versions of "ranf"* the generated CYBER 180 code references 

I the variables "ml v$random_mu! t i pi ler w and "ml v$r andom_seed»*» 

C 

C 3) Functions "cvc$l _mcal l_r anget" and "cvcS i_mca I l_ranset" correspond 

{ to the FORTRAN processor-supplied subroutines "RANGET" and "BASSET" 

€ respectively. The generated CYBER 180 code references the variables 

t **m I v$r andon.seed" and (RANSET only) "ml vSlnl tl a l_seed"» 

C 

C 4) Except for "cvc$l_tcal!_di agonai_char"» the Code Generator 

I "diagonal** intrinsics require an extra (third) argument which is the 

C (constant) default value for ail array result elements which are not on 

C the array diagonal* For "cvc$i_tcaH_di agonal _char"* a blank string 

C is always used for the default value* so there 9re only two arguments* 

C 

K 5) Functions "cvc$l_mca! I_scan_b01" and "cvc$i_mcal l.scan.bslgn" 

i correspond to the CY8II intrinsic "Iscan" with the following restrictions* 

C The third operand must be a variable with the code generator type of 

C cvt$l_type_lnteger_64» and the fourth operand must be a variable with 

f the code generator type of either cvt$i_type_bool ean_0_l or 

C cvt$i_tyoe_boolean_si gn (as reflected in the function name)* ^oth the 

f third and fourth operands must be variables with a length of 64 bits* 

?? FHT (FORMAT ?» ON) ?? 
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C1.0 INSTRUCTION OPCODE USAGE 



€1.0 iHSIEU£IIQ!UlE£Qa£-JISAfi£ 



CVCS processes (optimizes* vector I ires » etc*) code for a sequence of 
Instructions passed to it fey the Host* The set of possible 
instructions can be thought of as the assembly language for an 
abstract computer. Note that the actual code generated for a 
particular machine Mill not fee a one-for-one translation from the 
instructions passed by the Host* CVCG supports a large number of 
instruction opcodes* Inline code will he generated for all of these 
opcodes on the CYBER 180* and for most of these opcodes on the CY8£R 
200* The rest of these opcodes u 1 1 1 be generated as calls to 
library routines* The parameter list for such a library call is 
always Placed in registers* 

In order for the appropriate library routines to be present at 
execution time* the Host must include the appropriate library In the 
library_list field of the code^generator^attr Ibutes parameter of the 
C¥p$i_beg in_!EOdula call* 
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Z2.Q INSTRUCTION OPCODE NAMING CONVENTIONS 



C2 . imiymMJ2££OI2£-MM!3£~£OM£!iII2NS 



•to be added later- 
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€3.0 INSTRUCTION OPCODE DEFINITIONS 



C 3 • o IMiliyaiQM-Of £Q2£_J2££IMIiOBS- 



-to be added filter- 
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C4.0 CVTSI^COOE.GENERATO^. OPCODE 



C*.0 £niI.aO££-££H£MIOE.0££OM 



?? RUSH CLISTEXT ?* ON) ?? 

?? POP ?? 

?? PUSH (LIST i« ON) ?? 

C cvt$l_cede_generator_opcode > 

?? POP ?? 

?? PHT (FORHAT s« OFPI ?? 

TYP£ 

evt$ l.ccde.generator.opcode * ( 

i Instructions available in Interface* with result laka Hashed ResultM 



cvc$ 
cvcl 
cvc$ 

CYC! 

cvc$ 
c vc^ 
cvcS 
cvcl 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvcl 



»op — b_snd* 
_op_b„.andn» 
„op_b_biteq# 
-CP-b_bl toe* 
_oo_b_cat# 
_op_b_ceq» 
-CP_h_ceq_i # 
.op.b.cge.* 
_oo_b_cge_l , 
_op_b_cqt» 
.op^b^egt^i # 
_op_b_c le> 
-CP-b^cie^i * 
.op.te.c it* 
.oo.b.cl t_i ♦ 



Chit string logical and 

{bit string logical and.no t 

{bit string compare equal 

{bit string compare not.equal 

CSOP string concatenation 

{BD* 5 collated compare equal 

{ -to be deleted- 

{8DP collated compare gr eater.or.equal 

{ -to be deleted- 

CBDP collated compare greater.than 

{ -to be deleted- 

{8DP collated compare I ess.or.eoual 

C -to be deleted- 

C8DP collated compare less. than 

{ -to be deleted- 
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€4«0 CVTSI.CODE^GENERATOR.OPCODE 



cvcSi 


. op. b. one* 




cvc$l 


..op.b.cne.i 


9 


cvc$l 


_op.b.deq» 




cvc$l 


.op.b.d^et 




cvc$i 


.op.b.dgtt 




cvc$l 


-Op.b.dl e» 




cvc$i 


_op.b.di t» 




cvc$l 


.op.b.dne# 




cvcSi 


-.op.b.eqvt 




cyc$l 


~op.b.l cup. 


bc# 


cve$l 


f-Op.b.l eq» 




evc$l 


_op.b.leq.i 


9 


cvc$l 


~op.b. 1 ge.* 




cvc$ 


-Op.b.lge.i 


9 


cvc$l 


i_op.b.lgt> 




cvc$ 


l_op.b.lgt.i 


9 


cvcS 


.oo.b.l i e* 




cvcSi 


-OP.b.l le.i 


9 


cvcSi 


i_op.b.l 1 1* 




CVCSI 


.op.b.llt.l 


9 


cvc$ 


l.op.b.lne* 




cvcSi 


l.op.b.lne.i 


9 


C¥C$ 


f.op.b.nand* 




cvc$ 


l_.op_b_.nor> 




cvcS 


..op. b. not > 





CBOP collated compart not. equal 

C8DP Index of collated coipire not. equal 



C8DP decima 
CBDP dec i ma 
CBDP decima 
CBOP decima 
C8BP dec i ma 
CBOP decima 
Cbit string 
CBOP lexica 
CBOP lexica 
C -to be de 
CBDP lexica 
C -to be de 
CBOP lexica 
C -to be de 
CBOP lexica 
C -to be de 
CBOP lexica 
C -to be de 
CBDP lexica 



compare equal 

compare greater_or_eaual 

compare great er.than 

compare I ess. or. equal 

compare I ess.t ban 

compare not. equal 
logical equivalent 

compare with broadcast constant 

compare equal 
eted- 

compare greater. or. equal 
eted- 

comoare greater. than 
et ad- 
eem© are I ess. or. equal 
eted— 

compare less. than 
eted- 

comoare not. equal 
CBOP index of lexical compare not. equal 
Cblt string loqlcal nand 
Cbit string logical nor 
Cblt string logical not 
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CA.O CVTtl^CODH^GENS^ATriR.OPCOOE 



cvct 

cvcS 
cvc$ 
cvc$ 

cvc$ 
cvcS 
cvc$ 

C¥C$ 

cvcl 
cvcS 
cvc$ 
cvc$ 
cyc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvcl 
cvcl 
cvc$ 
cvc$ 

C*C$ 



«op«b_or# 

_op_b_orn» 

.op.b.scan* 

_op_b_scan_i* 

.oo_b_xar# 

_op_eal if 

_op_cai l_p» 

_op_entry9 

_op_f unc> 

_op_ical 1 9 

.op.parawptr* 

_OP_POPt 

_op_ptr*ddf 
.op.o.arf et t§ 
„op_p_arrr ef 9 
_op_p.arrsec» 
..-OP_P_ f iel d» 
-OP.P-J 1st* 

«op_p_i_i i st* 

_op_P„per am* 
.oo_p_recel t* 
_op_p_recsecf 

-QP^P-ref f 
_QP_o_substr9 



{bit string logical or 

Cblt string logical or_not 

C80P string scan for member 

{BOP string index of scan for member 

{felt string logical xor 

Csubrout ine call 

{subroutine call with specific parameter list pointer 

{procedure entry 

{function cal I 

{Intrinsic subroutine cail 

{create specific parameter list pointer 

{pop from stack 

{add Integer to pointer yalue 

{describe array element reference 

{describe array reference 

{describe array section reference 

{describe record field reference 

{describe list of operands 

{describe list of labels 

{describe actual parameter 

{describe pseudo-array element reference 

{describe pseudo-array section reference 

{ -unneeded?— 

{describe substring reference 
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C4.0 CVTSI.CGDE.GENEPATQP.OPCaOE 



cvc$i 


_op.r eset 9 


{rese 


cvc$l 


l_op.s.add# 


C s c a 1 


'\$ T \£ <W 


i.op.s.andt 


Cscal 


c y c S 1 


l..op_s.andn.# 


C s c i 1 


cvc$l 


i.oo_s.conv* 


Cscal 


CVC$I 


.op.s.dl v» 


Cscal 


cvc$ 


^_op_s,_eg.» 


Cscal 


cvcSi 


i_0O_S_eqv* 


Cscal 


cvc$ 


.op.s.ge* 


Cscal 


cvc$ 


.oo.s.gtt 


Cscal 


cvc$ 


l«op-S_i func» 


Cscal 


cvc$3 


I.op.s.I e» 


Cscal 


cvc$ 


_0P-S_! t» 


Cscal 


cvc$ 


.©P.s.mul* 


Cscal 


cvc$ 


i.op.s.n and* 


Cscal 


cvc$ 


i_op_s_ne» 


Cscal 


cvc$l 


_op.s_nor > 


Cscal 


cvcS 


l_op_s_not> 


Cscal 


cvcS 


.op.s.or* 


Cscal 


evc$ 


_op.s_orn* 


Csca! 


cvcSl 


i_0 D -S_r anf » 


Cscal 


cvcfl 


-OP_s_shfc# 


Cscal 


cvc$i 


_op_s_shfe# 


Cscal 


cvc$ 


i.op.s.subf 


Cscal 


cvc$i 


.op.s.xor * 


Cscal 



Creset stack oointer to previous stack frame 

ar numeric add 

ar logical and 

ar logical and.not 

ar numeric type conversion 

ar numeric divide 

ar numeric compare egual 

ar logical equivalent 

ar numeric compare gr eater.er.equal 

ar numeric compare greater. than 

ar Intrinsic function call 

ar numeric compare I ess.or.equal 

ar numeric compare less. than 

ar numeric multiply 

ar logical nand 

ar numeric compare not. equal 

ar logical nor 

ar logical not 

ar logical or 

^r logical or.not 

ar ranf Intrinsic function call 

ar circular shift 

ar end.off shift 

ar numeric subtract 

ar logical xor 
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GVC$1 


.op. v. add* 


Cvector 


cvc$i 


.op.v.andf 


Cvector 


CVCS1 


l.op.v.ando.* 


Cvector 


cvc$ 


l.op.v.conv* 


Cvector 


ove$ 


i-OP.v.di v* 


Cvector 


ovc$ 


l-OP.v.sq# 


Cvector 


cvc$ 


-C!°-V_eqv# 


Cvector 


C¥C$' 


.op.v.ge* 


Cvector 


CVC$i 


i.op.v.gt* 


Cvector 


cvc$ 


'.op- v.l tunc* 


Cvector 


cvc$1 


1. op. v.l func.r* 


Cvector 


cvc$" 


1 -OP- v.l e» 


Cvector 


C¥C$ 


.00. v.l t* 


Cvector 


CVC$ 


I.OO.V.mul # 


Cvector 


cvc$i 


-OP.v.parid# 


Cvector 


CVC$I 


.op.v.ne* 


Cvector 


cvcti 


.oo.v.norf 


Cvector 


cvcSl 


.OP.V.not* 


Cvector 


cvc$i 


.oo.v.or# 


Cvector 


cvc$l 


l.op.v.orn» 


Cvector 


cvc$ 


1 -op. v. ran f* 


Cvector 


cvc$ 


i.oo.v.shf c# 


Cvector 


cvc$ 1 


-0P-V.shf e» 


Cvector 


cvc$! 


-Op.v.sub* 


Cvector 



numeric ndd 

logical mnd 

logical and.not 

numeric type conversion 

numeric divide 

numeric compare equal 

logical equivalent 

numeric compare greater.or. equal 

numeric compare greater. than 

Intrinsic function call 

intrinsic reduction function call 

numeric compare I ess. or. equal 

numeric compare less. than 

numeric multiply 

logical nand 

numeric compare not. equal 

logical nor 

logical not 

logical or 

logical or. not 

ranf Intrinsic function call 

circular shift 

end. off shift 

numeric subtract 
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cvcSl.op.v.xor t Cvector logical xor 
C Instructions avail able in Interface* without result (aKa Non-Hashed)* 



cvc$ 

cvcS 

cvc$ 

cvc$ 
cvcS 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvc$ 
cvoS 
cvcS 

C¥C$ 

cvc$ 
cvcS 
cvci 
cvc$ 
cvc$ 
cvc$ 



cvc$ 



cvc$ 
cvc$ 



Cbranch on numeric equal 

{branch on logical false 

Cbranch on numeric greater. or. egual 

Cbranch on numeric greater. than 

Cbranch Indirect 

Cbranch on numeric I ess.or.egual 

Cbranch on numeric less. than 

Cbranch on numeric not.egual 

Cbranch on logical true 

Cbranch unconditionally 

CBDP decimal add 
«QP_b«bitmovet Cbit string iove 
_op.b.conv» CBDP decimal type conversion 

C8DP decimal divide 

CBDP str Inq edit 

C80P string siove 
_QP.b_move.bct CBDP string move of broadcast constant 
.op.b.mul* CBDP decimal multiply 



.op.fer.eq> 

.oo.br.f » 

.oo.br.ge* 

.op.br.gt* 

.oo.br. I * 

.op.br. ie# 

.op.br.lt* 

.op.br.ne* 

.op.br. t# 

.oo.br.u* 

.op.b.addt 



.op.b.di vi 
.op. b. edit* 
« op. b. move* 



.op.b.shfCf 



C8DP decimal shift end.off 



C **to be renamed cvcSl.op.b.shf e** 



.op.b.sh^c.rt CBDP decimal shift end.off rounded 



C **to be renamed cvcSi.op.h.shf e.r* 



.oo.b.subt 
.op.b.tran* 



CBDP decimal subtract 
C80P string translation 
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cvcSi 


„oo_deref > 


cvcS 


.op.hw.ssecf 


cvcS 1 


l_op_ jumptbi # 


cvcSi 


.oo.l abelref » 


cvc$l 


.op.procref 9 


cvc$l 


.op^ptrmove* 


cvcS : 


.op.ptrref # 


cvc$3 


l.oo.pushf 


cvcSi 


.op.p.block* 


CYC$1 


l.oo.P.bf ockend* 


cvc$i 


l.op.p.def # 


cvc$l 


_op_p.ini tf 


cvcSi 


l„oo_p_lnl tend* 


CVC$ 


i-OP.p.t abel # 


cvc$ 


I.op.p.1 lne» 


C V c * 


l_oo_p_proc» 


cvc$l 


.oo.p.procend* 


cvc$ 


i_O0_retum» 


cvc$ 


i-OP-S.l.tO.S» 


cvcS 


l.op.s.move» 


cvc$ 


i.op.s.oaren* 


cvc$ 


i_op_s_s_to_ 1 t 


cvc* 


f_op_s.u_to_l » 


cvcS 


i_oo_v_gthr» 



{pointer dereference 

{hardware specific instruction 

{create jyfflp table 

{create label reference 

{create procedure reference 

{pointer move 

Cere-ate pointer reference 

{push onto stack 

{start of basic block 

{end of basic block 

{ -unneeded?- 

{start of Initialization code 

{end of initialization code 

{start of labelled code 

{start of source line 

{start of procedure 

{end of procedure 

{procedure return 

{scalar wove long to shortt truncated on left 

{scalar iflove 

{scalar parenthes i zat ion 

{scalar move short signed to long* sign extended 

{scalar fitove short unsigned to long* zero extended 

{vector gather* fixed interval 
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cvcSi.oo^v^gthr^b* Cvector gather blocks* fixed interval 

eyc$i_Qp_v_gthr_i * Cvector gather according to index vector 

cvc$i_op_v_i_to_s# Cvector move long to short* truncated on left 

cvc$i_op_v_!*tove* Cvector move 

cvc$i_op_v_paren* Cvector parenthes izat ion 

cvc$l_op_v_sctr» Cvector scatter* fixed Interval 

cvc*i_op_v - sctr_b# Cvector scatter blocks* fixed interval 

cvc$l_op_v_sctr_i * Cvector scatter according to index vector 

cvc$i_of>_v_u..to_i » Cvector move short unsigned to long* zero filled 

cvc$i„op_v_v_to_l* Cvector «ove short signed to long* sign extended 
C **to be renamed cvc$l_op_v_s_to_l** 

C Instructions interna! to Code Generator* with result taka Hashed Jesuit)! 

cvcSi_op_h_dcmp_c* CBOP decimal comoare with constant 

evc$i_op_extb* Cblt string extraction 

cvc$i _oo_extb_c* Cblt string extraction according to constant 

cvc$l_op_l nsb* Cblt string Insertion 

cvc$i_OD_insb_c» Cblt string Insertion according to constant 

cvc$i_oo_l oad_h* Cload with hashed result 

cvc$i_op_3iark* Cmark logical value 

cvc$i_op_!nskb* Cblt string mask creation 

cvc$i_op_mskb_c* Cblt string wask creation according to constant 

cveSl^op^ptradd^c* Cadd Integer constant to pointer value 

cvcll _op_p_array* Cdescribe array reference 

cvc$i_op_p_bdescr » Cdescribe BO** descriptor 

cvc$i„QP_P - .call Info* Cdescribe additional call information 
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CVC$ ! 


_oo_p_cpypalr# 


cvc$i 


-OP— P.***^ f f 9 


cvc$i 


_oo_p_str i ng» 


cvcSi 


_op_s,_8b5» 


cvc$i 


— op_s_add_c# 


cvc$l 


„.o P_s ^ a dd_ 2 # 


cvcf 


-OP_s_mul_c# 


cvc$ 1 


_©o_s_shf c_ct 


cvc$ i 


_op_s_shf e_c* 


cvc$i 


_op_s_xfer * 


cvc$ i 


-Op_s.-xf er_e* 


cvc$! 


— op_s_xmi tp 


cvc$l 


_op_v_xfer_rf 


cvc$ i 


-Op_v_xmi t_r # 


C Instructions Internal 


cvc$i 


-Op^b^add.cp 


C V c * 1 


„op_b..conv_c» 


cvc$l 


^op^b^ 1 ctip — c» 


cvc$l 


— QP-b_move,..c> 


C¥C$1 


_op_l oad? 


CVC$J 


-QP-P-Cpylwr * 


cvc$i 


-op.P-Cpyuort 


C V c $ 1 


_op_p_ffliod 9 


cvcf i 


-.op_p_modend» 


cvc$i 


_op_p_sot I d» 



Cdescribe register pair 
Cdescribe memory reference 
Cdescribe string reference 
Cscalar numeric absolute value 
Cscalar numeric add of a constant 
Cscalar numeric add of a special constant zero 
Cscalar numeric multiply of a constant 
Cscalar shi^t circular by a constant 
Cscalar shift and.off by a constant 
Cscalar register transfer instruction 
Cscalar register and constant transfer instruction 
Cscalar register transmit Instruction 
Cvector reduction transfer instruction 
Cvector reduction transmit instruction 
to Code Generator* without result (aka Non-Hashed) s 
CBDP decimal add of a constant 
C8DP decimal type conversion of a constant 
C80P lexical compare with a constant 
CBDP string move of a constant 
Cload register 

Cdescribe reference to second register of a pair 
Cdescribe reference to first register of a pair 
Cstart of compilation module 
Cend of compilation module 
Cstart of solid opt lul rati on block 
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cvc$i_QP_p_sol I dendt fend of solid opt imlzat i on block 



cvc$i_op,.set_cal I* 
cvcSi_op_store> 
cvc$ i_Qp_s_ffiove_c# 
cvc$l.op.v.abs# 
cvc$l_op_v_add_2* 
cvcSi_op_v_xf er» 

CVC$l_OP_V_X3!?| t 

)? 

?? J=HT CFQR*1AT ?* OH) ?? 



{set up for procedure call 

{store register 

{scalar move of a constant 

{vector numeric absolute value 

{vector numeric add of a special constant zero 

{vector transfer 

{vector transmit 
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